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This  thesis  presents  the  adaptation  of  a  multi-computer 
real-time  executive,  MCCETEX,  to  a  target  environment 
consisting  of  a  set  of  INTEL  86/12A  single  hoard  computers 
in  a  YULTIPUS  hack  Diane.  CP/M-86  is  brought  under  the 
control  of  MCCPTEX,  and  mechanisms  are  implemented  to 
provide  access  to  the  MCORTEX  supervisor  from  Digital 
Research's  PL/I-86  language  system. 

Initially  CP/M-86  is  operating  the  system  of  micro- 
computers in  a  multi-user  mode.  MCORTEX  and  user  processes 
are  loaded  from  CP/M-86  files.  Use  of  all  CP/M-86  functions 
is  retained  and  MCCRTEX  can  be  used  by  PL/I-86  compiled 
applications  programs  to  do  multi-processing. 
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I.   INTRODUCTION 

A .   GENERAL  DISCUSSION 

This  thesis  presents  the  adaptation  cf  a  kernel, 
real-time  micro-computer  based  multi-processor  operating 
system,  called  MCO.RTEX,  tc  allow  simultaneous  user  arcess  to 
the  CP/M  operating  system  as  well  as  to  MCCRTEX  .  User 
•proeram  development  using  Digital  Research's  PL/I-&6 
language  system  is  supported. 

Improvement  in  micro-processor  capabilities,  and 
performance,  combined  with  continued  reductions  in  hardware 
cost  portend  the  development  of  powerful,  relatively 
inexpensive  micro-processor  systems.  Continued  success  in 
VLSI  technology  applications  in  parallel  with  development  of 
appropriate  operating  systems  will  produce  systems  superior 
in  many  respects  to  computers  developed  using  current 
mainframe  technology.  Systems  of  processors  allow  for 
graceful  degradation  under  fault  conditions  and  for 
distribution  of  the  system,  enhancing  survivability  in 
hostile  environments.  "Further,  parallel  processing  allows 
increased  throughput  and  response  time,  and  in  real  time 
application  can  guarantee  successful  monitoring  at  high 
sample  rates  and  densities,  without  conflict. 

A  .  successful-  multi-processor  system  must  control 
sequencing   of   inter-independent  processes   and   access   to 
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limited  resources.  For  efficiency  it  must  provide  the 
context  switching  necessary  for  multi-processing  on 
individual  processors.  Additionally,  conflicts  arising  from 
simultaneous  multi-processor  access  to  common  memory  must  be 
minimized  without  degrading  throughput.  This  should  te 
accomplished  at  a  reasonable  cost  and  in  a  manner  that 
allows  as  many  processors  as  are  necessary  to  achieve  the 
desired  degree  of  concurrence  and  robustness. 

The  purpose  of  this  thesis  is  to  advance  the  development 
of  a  real  time  multi-processor  system  within  the  overall 
poals  of  the  AISIS  weapons  system  simulation  project.  These 
goals  include  the  demonstration  of  the  operating  system  on 
commercially  available,  inexpensive,  general  purpose  micro- 
computers. The  system  should  reauire  minimum  development  of 
both  hardware  and  software.  To  the  maximum  extent  possible, 
custom  developments  should  be  completely  general  in  nature. 
In  pursuit  of  these  goals,  MCCRTFX  is  configured  to  execute 
in  conjunction  with  a  commercially  available  operating 
system,  making  the  functions  of  both  systems  available  to 
user  programs.  Additionally,  mechanisms  allowing  user 
program  development  within  the  framework  of  a  commercially 
available  language  system  are  provided. 

B.   BACKGROUND 

The   AEGIS   weapons  system  relies  on  the  four-processor 

AM/UYK-7  mainframe   computer  for   real-time  processing   of 

large   amounts   of  data   concerning   target  detection   and 
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acquisition.  A  project  at  the  Maval  Postgraduate  School 
seeks  to  demonstrate  that  a  system  as  complex  as  AEGIS  can 
"be  controlled  more  economically,  with  improvements  in 
graceful  degradation  characteristics,  and  without 
performance  loss  using  a  distributed  system  of  micro- 
computers. The  project  requires  identification  and 
implementation  cf  an  applicable  hardware  configuration, 
development  of  a  suitable  operating  system,  duplication  of 
significant  real-time  functions  o^  the  AEGIS  weapons  system 
and  incorporation  of  valid  simulation  processes  for  test  and 
evaluation  cf  the  total  system. 

The  INTEL  iSBC  86/12A,  a  single  board  micro-computer 
based  on  the  16  bit  INTEL  8086  micro-processor,  was  selected 
as  the  system  hardware  base.  Initial  design  of  an  operating 
system  specific  to  the  INTEL  iSPC  86/12A  was  completed  in 
1930  and  implementation  was  accomplished  in  three  Naval 
Postgraduate  School  thesis  in  1981  and  1982.  The  second 
thesis  in  this  series  written  by  Cox  [Ref.  1]  simplified  the 
design  of  MCORTEX  to  more  successfully  address  security  and 
overhead  issues  in  the  real-time  embedded  applications 
tareetted  by  the  project.  Cox  also  added  a  supervisory 
layer  to  the  architecture,  simplifying  access  and  enhancing 
security.  Klinefelter  [Ref.  2]  expanded  and  genpralized 
Cox's  work.  All  implementation  to  this  point  was  done  on 
the   IS  IS— 1 1  development  system,   with  multi-processor   test 
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and   executior   accomplished  via  download  through   a   serial 
link  to  the  target  hardware. 

The  goals  of  this  thesis  are  to: 

1.  Prine;  the  powerful,  highly  portable  functions 
of  the  CP/M-P6  operating  system  under  the  control  of 
MCORTEX.  This  will  provide  rapid  expansion  of  user 
capabilities  within  the  restrictions  imposed  by  the  r.on- 
reentrancy  of  CP/M-86  utilities.  Using  MCGRTEX  functions, 
control  of  access  to  CP/K-S6  can  be  selectively  applied 
depending  on  the  contextual  requirements  of  the  application. 

2.  Sever  the  link  with  the  development  system,  and 
provide  a  simple,  convenient  method  of  creating  the  KCOPTEX 
environment.  This  should  include  user  program  and  MCGRTEX 
loading,  transfer  of  control  to  MCORTEX,  and  mechanisms  for 
return  of  control  to  CP/M-86. 

3.  Provide  access  mechanisms  to  the  MCORTEX 
supervisor  compatible  with  Digital  Research's  PL/I-86 
language  system,  allowing  user  programs  to  be  developed  in  a 
high  l°vel ,  portable  language. 


C.   STRUCTURE  OF  THE  THESIS 


C! 


Ihapter  I  discusses  the  overall  direction  of  the  AEGIS 
weapons  system  simulation  project  and  the  place  this  thesis 
holds  in  accomplishing  project  goals. 

Chapter  II  addresses  the  issues  which  resulted  in 
changes  to  MCORTEX  as  implemented  by  Klinefelter,  and 
presents    an    overview   of    the    HCORTEX    functions 
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retained .Chapter  III  details  the  architecture  of  the  MCORTEX 
environment,  highlighting  interactiors  between  the  hardware, 
CP/M-86  and  MCORTEX. 

Chapter  IV  presents  the  MCORTEX  loader,  discussing 
considerations  given  to  alternative  methods  for  invoking 
vC0RTEX . 

Chapter  V  explains  the  interface  provided  between  PL/I- 
£6  and  the  MCORTEX  supervisor.  Procedures  necessary  to 
successfully  create  MCORTEX  virtual  processors  are 
discussed . 

Chapter   VI  summarize  the  current  state  of  the   system, 
points   out  problem  areas,   and  makes  suggestions  for  future 
research  and  testing. 
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H.   IMPLEMENTATION  MODIFICATION  ISSUES 

A.   DESIGN  CONSIDERATIONS 

In  a  real-time  system,  multi-processing  on  a  single 
processor  decreases  processor  idle  time.  A  multi-processor 
configuration  extends  the  range  of  this  economy  and  provides 
opportunities  to  exploit  parallel  and  pipeline  processing 
techniaues  that  further  enhance  overall  system  goals. 
Careful  consideration  must  he  given  to  control  of  shared 
resources,  process  integrity,  interprocess  synchronization, 
methods  of  context  switch  initiation,  and  context  switching 
overhead . 

3.   SEARED  RESOURCES 

The  most  important  shared  resource  in  a  multi-processor 
environment  is  common  memory.  MC0RTE7  relies  on  a 
hierarchical  bus  structure  to  limit  the  requirement  for 
access  to  common  memory.  Each  orocessor  has  local  memory, 
addressahle  without  access  to  a  shared  bus.  A  process 
executing  in  local  memory  makes  demands  on  the  common  bus 
only  to  pass  computed  data  to  external  processes,  or  when 
MCORTEX  functions  are  used.  Related  processes  with  high 
intercommunication  rates  should  reside  in  the  local  memory 
of  a  single  processor,  thus  avoiding  high  common  bus  usage. 

To  perform  its  functions,  MCCRTEX  sets  uo  a  section  of 
common   memory   called  GLOBAL  memory.    Table   1   shows   the 
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logical   organization  of  this  shared  resource  (see  the   last 
four  pages  of  Appendix  H  for  actual  locations.).   Access  to 

TABLE  1:  GLOBAL  MEMORY 


OFFSET   MNEMONIC 

0  GLOBAL$LOCK 

1  NR$RPS 

2  NR$VPS(MAXSC?U) 


23 

24 

26 

423 

424 

425 
426 


TYPE/INIT 

B  0 
B  0 
B     0 


FEMAFKS 


12   HDW$INT*ELAG(MAX*CPU) 

E     X 


22   EVENTS 


EVC$TBL(1?0) 
E7CSNAME 
VALUE 
THREAD 


CPU  SIN 

SEOUEN 
SEOSTA 

SEQS 

SEQ$ 

VPM(MA 


IT 
CERS 

BLE(1 

NAME 

VALUE 

X$CPU 


00) 


B 
S 

B 
W 


B 

3 
S 
B 
W 


FE 

0 

EF 

0 
0 

X 
X 


Number  of  real  processors 
Number  of  virtual  processors 
'one  byte  for  eac*   possible 
CPU,  MAX$C?U  currently  =  10) 

Hardware  interrupt  flag  (one 
for  each  possible  CPU,  MAX$CPU 
currently  =  10) 

Number  of  events 

Event  count  table 

Event  count  name 

Event  count  value 

Event  count  thread 

Log  in  CPU  number 
Number  of  sequencers 
Sequencer  table 
Name  of  sequencer 
Value  of  sequencer 


725 
726 
727 
728 
730 
732 
1725 


VPSID 

VPSSTA 

VP$?FI 

EVC$AW 

SP$REG 

S3SREG 


MAX$VPMS$C?U) 

S         Virtual  processor  mai> 
(MAX$CPU  currently  =  10, 
MAX$VPMSSCPU  currently  =  10) 
B    X    Virtual  processor  ident. 
TE  B    X    Virtual  processor  state 

OF.ITY       B    X    Virtual  processor  priority 
$ VALUE      V    X     Count  awaited 

W    X    Stack  pointer  register 
W    X    Stack  segment  register 


B  -  byte 


W  -  word 


S  -  structure 


X  -  not  initialized 


GLOEAL  memory  is  controlled  through  the  combination  of  a 
hardware  bus  lock,  and  a  software  lock  ( GLOBAL$LOCE )  located 
in   GLOBAL   memory.    When  a  process  sets  the   hardware   bus 
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lock,  it  is  given  sole  access  to  the  common  bus  for  one 
instruction  cycle.  During  this  cycle,  the  process  makes  an 
exchange  of  the  value  in  a  register  (contents  77H)  with 
GLOBAL$LOCK.  The  processor  then  examines  the  contents  of 
the  exchange  register.  If  the  register  now  contains  zero, 
the  processor  is  granted  access,  if  not,  the  process  repeats 
the  procedure  until  a  zero  is  obtained  from  GLOBALSLOCK. 
Because  access  to  GL03AL  memory  is  controlled  by  MCORTEX, 
waits  should  be  infreauent  and  short  in  duration.  When 
relinquishing  the  software  lock,  the  process  merely  sets 
GLOBALSLOCK  to  zero. 

Users  have  no  access  to  GLOBAL  memory,  however  MCOiiTEX 
provides  for  user  control  of  shared  resources  through  data 
held  in  GLOBAL  memory.  Sequencers,  located  in  the  sequencer 
table  section  of  GLOBAL  memory,  are  used  to  provide  a  turn 
taking  mechanism.  Each  shared  resource  is  assigned  a 
corresponding  sequencer.  When  processes  require  a  resource, 
they  request  a  turn  through  the  supervisory  function  call 
TICKET,  specifying  the  applicable  sequencer.  TICKET  returns 
a  number  indicating  the  callers  turn  at  the  required 
resource.  This  is  similar  to  getting  a  turn  number  at  a 
barber  shop.  TICKET  advances  the  sequencer  value  in  global 
memory  so  that  succeeding  requests  receive  higher  numbers. 
The  process  requesting  the  resource  then  makes  another 
supervisory  call,  this  time  on  AWAIT,  providing  both  an 
identification   of  the  rpsource  and  the  process  turn  number. 
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If   the   resource   is  not  busy,   the   process   will   receive 
immediate  access,  otherwise  the  process  gives  up  the  CPU. 

C.   PROCESS  INTEGRITY 

The  design  of  MCORTEX  relies  heavily  on  user  cooperation 
for  process  integrity.  The  supervisor  controls  access  to 
the  MCORTEX  functions,  but  even  this  is  a  software  control 
and  will  not  withstand  malicious  assult  or  catastrophic 
failure.  MCORTEX  is  targetted  at  embedded  systems 
applications  where  malicious  assault  is  not  expected. 
Protection  from  catastrophic  failure  reauires  hardware 
protection  not  presently  in  the  system.  The  low  cost  of 
micro-computers  however,  allows  for  redundant  back  up 
systems  which  can  limit  the  affects  of  catastrophic  failure. 
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INTERPROCESS  SYNCHRONIZATION 


Frocess  synchronization  is  accomplished  under  MCORTEX 
through  the  functions  ADVANCE,  AWAIT,  and  PREEMPT.  These 
synchronizing  primitives  are  supported  with  the  functions 
CREATE$EVC,  CREATE$SEQ,  READ,  and  TICKET.  Consumer 
processes  use  AWAIT  to  ensure  that  data  they  require  is 
ready.  Producer  processes  use  ADVANCE  to  inform  consumers 
that  new  data  has  been  computed.  PREEMPT  is  used  by  one 
process  to  directly  ready  another  process.  This  primitive 
is  for  activation  of  high  priority  system  processes  of  a 
time  critical  nature.  A  call  on  a  synchronizing  primitive 
may,  or  may  not  result  in  relinquishing  the  CPU.   The  CPU  is 
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always  assigned  to  the  highest  priority  ready  virtual 
processor  on  each  board  regardless  of  which  synchronization 
function  envoked  the  scheduler.  Before  using  ADVANCE  or 
AWAIT,  an  event  count  must  be  created  using  CREATE$EVC. 
Consumers  and  producers  then  communicate  using  the  agreed 
upon  event  count.  The  current  value  of  an  event  count  car. 
he  determined  through  a  call  on  READ.  The  functions  of 
CPEATESSEQ  and  TICKET  are  as  discussed  earlier,  but  with 
broader  applications. 

MCORTFX  handles  two  types  of  context  switching.  The 
first  type  results  when  control  of  a  CPU  is  relinquished 
through  a  MC0RTE7  function  call.  Under  these  conditions  the 
calling  process  is  not  halted  in  the  midst  of  some  task,  but 
at  a  place  'convenient*  for  the  process.  Some  subset  of  the 
processors  registers  contains  all  reauired  state 
information.  MCORTEX  assumes  this  subset  includes  the  DS, 
IP,  CS ,  SS,  SP,  and  3?  registers.  Additionally,  a  "normal" 
return  indicator  is  saved.  The  second  type  of  context 
switching  results  from  an  interrupt.  This  switching  assumes 
nothing,  and  saves  the  complete  state  of  the  process  being 
interrupted  as  well  as  an  'interrupt'  return  indicator. 
This  recognition  of  two  switch  types  makes  context  switching 
faster  for  the  more  common  'normal'   return. 

Early  implementers  of  MCCRTEX  considered  the  context 
switching  overhead  question  in  detail.  Their  solution  gave 
greater   importance  to  the  issue  of  speed  than  to  the   issue 
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cf  portability.  The  context  switching  routines  in  MCOETEX, 
including  the  virtual  processor  scheduler  and  the  interrupt 
handler,  are  the  only  portions  of  the  MCCRTEX  core  written 
in  assembly  language.  Another  decision  motivated  by  the 
speed  imperative  assumed  that  each  virtual  processor  owned  a 
stack:  for  storing  state  information.  This  decision  was 
followed  by  another  assuming  that  the  stack  segment  pointer 
for  each  stack  was  different.  This  allowed  a  bootstrap  like 
context  recovery.  A  search  through  the  virtual  processor  map 
identified  the  highest  priority  ready  process.  Virtual 
orossor  map  information  included  the  process  stack  segment 
value.  This  value  was  retrieved,  and  subsequently  used  to 
retrieve  three  additional  pieces  of  processor  state 
information.  Offsets  zero,  two,  and  four  from  the  stack 
segment  were  used  to  retrieve  the  process  stack  pointer 
value,  the  process  stack  base  pointer  value,  and  a  return 
type  indicator.  Recovery  of  the  stack  state  allowed 
recovery  of  the  entire  state  of  the  virtual  processor,  and 
processing  could  continue. 

This  context  switching  method  has  many  advantages. 
Tirst,  once  the  stack  segment  of  a  process  has  been  stored 
in  a  known,  retrievable  location,  it  never  needs  updating. 
The  base  of  the  stack  remains  fixed,  and  access  is 
controlled  through  the  contents  of  the  first  few  bytes  at 
the  base  of  the  stack.  Second,  less  space  is  required  to 
store   the   stack   segment  than  to  store   the   entire   stack 
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pointer.  (This  information  is  stored  in  GLOBAL  memory.) 
Third,  since  each  process  was  uniquely  identified  by  its 
stack  segment  register,  MCORTEX  functions  did  not  need  to 
identify  the  process  they  were  responding  to  when  using  the 
scheduler.  The  scheduler  simply  stored  state  information  at 
the  base  of  whatever  stack  segment  was  active  when  the 
scheduler  was  called. 

The  assumption  that  each  process  used  a  different  stack 
segment  value  is  net  completely  general,  and  in  fact  was  not 
true  for  procedures  compiled  and  linked  under  the  Digital 
Research  PL/I-36  language  system.  This  conflict  forced 
changes  in  the  context  switching  mechanisms  of  MCORTEX.  The 
entire  stack  pointer  (SS  and  SP  registers)  is  now  stored  in 
GLOBAL  memory,  and  MCCRTEX  functions  making  use  of  the 
scheduler  must  indicate  (in  the  Processor  Lata  Segment 
Table,  PRDS )  which  virtual  processor  they  are  servicing. 

E.   DELETED  FUNCTIONS 

Functions  previously  available  under  MCORTEX  include 
0UT$CHAR,  0UT$LINE,  CUT$NUM,  OUTSD^UM,  IM$CFAR,  INSNUM,  and 
IN$DNUM.  With  CP/M-86  under  the  control  of  MCORTEX,  these 
utility  functions  are  redundant  and  have  been  removed. 
However  a  version  of  MCORTEX  with  these  functions 
incorporated  has  been  retained  for  troubleshooting  purposes. 
The  monitor  process  incorporated  by  Klinefelter  has  also 
been  removed  in  light  of  the  availability  of  DDT36. 
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III.   SYSTEM  ARCHITECTURE 

A.   SYSTEM  HARDWARE 

This  implementation  of  MCCRTEX  is  based  on  the  INTEL 
iSEC36/12A  single  hoard  computer  using  a  MULTIBUS  hack 
plane.  Specific,  detailed  irformation  pertaining  to  hoth 
these  components  is  available  in  [Ref .  31  and  [Ref.  4] .  The 
MULTIBUS  also  connects  two  memory  extensions  into  the 
system.  A  32K  extension  is  used  as  common  memory  for 
interprocess  communication  under  MCCRTEX  and  for  CF/M  multi- 
user system  control.  A  64K  extension  provides  additional 
memory  required  to  operate  the  PL/I-86  compiler  and  other 
utilities  not  constrained  to  execute  in  the  64K  of  memory 
local  to  each  processor.  Additionally,  a  bubble  memory 
system  and  a  hard  disk  system  are  available  on  MULTIBUS.  A 
second  hard  disk  system  is  accessed  through  the  parallel 
port  of  one  SBC.  Figure  1  is  a  representation  of  this 
configuration  with  two  SBC's  shown. 

The  iSBC86/12A  provides  a  three  level  hierarchical  bus 
structure.  At  the  first  level,  the  8086  processor 
communicates  through  the  on  board  bus  with  up  to  4K  of  ROM, 
with  serial  and  parallel  I/O  ports  and  with  the  dual-port 
bus.  Control  and  access  to  local  RAM  is  provided  by  the 
second  level  dual-port  bus.  The  third  bus  level,  the' 
MULTIBUS   interface,   provides  access  to  the  MULTIBUS.    The 
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presently  used  wiring  option  excludes  off  board  access  to 
local  RAM.  Differences  between  memory  access  times  at  the 
first  two  levels  are  negligible,  but  memory  accesses 
involving  MULTIBUS  require  a  minimum  25%  increase  in  access 
time. 

The  high  performance,  general  purpose  S086  micro- 
processor base  of  the  iSEC86/12A  contains  an  Execution  Unit 
(EU)  and  a  Bus  Interface  Unit  (BIU).  EU  functions  are 
supported  by  instruction  fetches  and  operand  reads  and 
writes  conducted  by  the  BIU.  The  BIU  can  stack  instructions 
in  an  internal  RAM  to  a  level  of  six  deep  increasing  EU 
efficiency  and  decreasing  bus  idle  time. 

The  8036  has  eight  16  bit  general  purpose  registers, 
four  being  byte  addressable.  The  remaining  four  are 
primarily  pointer  registers,  but  can  be  used  as 
accumulators .  Additionally,  the  8086  has  four  segment 
registers,  an  instruction  pointer  register  and  a  flag 
register  with  nine  status  bits. 

a  segmented  one  mega-byte  address  space  is  provided  for 
by  the  &d86  micro-processor.  This  is  accomplished  by 
combining  the  16  bits  cf  each  segment  register  left  shifted 
four  bits,  with  the  16  bits  of  an  associated  pointer 
register  unshifted.  The  resulting  20  bits  form  a  physical 
address.  Eor  any  given  segment  register  value  64k  bytes  of 
memory  can  be  addressed  through  manipulation  of  the  pointer 
register   alone.    The  64k  byte  memory  spaces  formed  can   be 
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discrete  or  can  overlap  en  boundaries  that  are  multiples   of 
16  "bytes,  depending  on  segment  register  values. 

The  iSBC86/12A  provides  serial  I/O  through  an  INTEL 
82514  US  ART,  parallel  I/O  through  an  INTEL  8255A  PPI  and  a 
broad  range  of  interrupt  control  through  the  INTEL  8259A 
PIC.  MCORTEX  operates  using  interrupt  4.  The  interrupt  is 
generated  via  output  to  parallel  port  B,  as  proposed  by 
Perry  [Ref .  5:  pp.  65  to  69].  Both  the  hardware  and 
software   implementations  are  exactly  as  presented  by  Perry. 

3.   OPERATING  SYSTEMS 

A  copy  of  MCOPTEX  resides  in  each  processors  local 
memory  and  is  a  distributed  Dart  of  the  address  space  of 
each  local  process.  Additionally,  GLOBAL  memory  is 
accessible  to  MCORTEX  to  facilitate  interprocess 
synchronization.  A  system  interrupt  under  MCORTEX  control, 
ir  conjunction  with  interrupt  flags  maintained  in  GLOBAL 
memory,  provides-  communication  initiation  between  real 
processors.  Upon  receiving  an  interrupt,  eacn  processor 
checks  its  flag  in  GLOBAL  memory  to  determine  if  the 
interrupt  is  intended  for  a  process  in  its  local  memory.  If 
not,  the  process  executing  at  the  time  of  the  interrupt 
continues.  Otherwise  a  call  is  made  to  the  MCORTEX 
scheduler  and  the  highest  priority  ready  process  is  given 
control  of  the  CPU.  For  communication  between  processes  in 
a  common  local  memory,  no  interrupt  is  issued,  a  call  to 
the  scheduler  is  made  directly. 
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Access  to  MCORTEX  is  through  the  supervisor  at  the 
outermost  layer  of  the  MCORTEX  four  level  structure 
discussed  by  Klinefelter  [Ref .  2  :  pp.  44-46].  Due  to 
incompatible  parameter  passing  implementations  in  PL/M-86, 
and  in  PL/I-36,  code  allowing  PL/I-86  access  to  the  MCORTEX 
supervisor  has  been  developed.  This  is  discussed  fully  in 
Chapter  V. 

Also  resident  in  each  local  memory,  if  required,  is  the 
CP/M-86  operating  system.  In  this  configuration  the  full 
range  of  CP/M  utilities,  [Ref.  6]  and  [Ref.  7],  is  available 
to  the  user.  Additionally,  development  of  user  processes  can 
make  use  of  any  of  the  broad  scope  of  commercially  available 
products  compatible  with  CP/M-S6.  Figure  2  gives  a 
representation  of  the  locations  of  the  system  code.  The 
diagram  includes  the  location  of  DDT-86  as  required  for  a 
debugging  session.  Also  depicted  are  the  locations  of  the 
MCORTEX  /  MXTRACE  loaders.  During  load,  loader  memory  is 
not  reserved,  and  care  must  be  taken  to  ensure  that  a  CMD 
module's  code  or  data  section  does  not  overwrite  it.  It  is 
permissible,  however,  to  include  this  memory  as  part  of  a 
module  stack  or  free  space,  since  these  structures  are 
developed  at  module  runtime  when  loader  functions  have  been 
completed . 
C.   USE?  PROCESSES 

User  processes  may  be  located  in  areas  indicated  in 
Figure   2.    Additionally,   if   CP/M-86   utilities   are   not 
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required,  memory  reserved.  for  CP/M-86  may  hold  user 
processes  . 

Descriptions  of  processes  in  memory  are  provided  to 
MCCRTEX  through  CREATE$PROC.  This  MCORTEX  function  gives 
the  process  a  uniaue  identification  number,  priority,  stack 
(SS  and  S?  registers),  next  execution  address  'CS  and  IP 
registers),  data  segment  (DS  register),  and  extra  segment 
{IS  register).  MCORTEX  establishes  the  process  initial 
context  using  this  information  to  create  a  virtual 
processor.  The  virtual  processor  exists  as  a  combination  of 
data,  both  in  GLOBAL  memory,  and  in  each  process  stack.  When 
executing,  the  virtual  processor  becomes  identical  with  the 
real  Drocessor  state.  Relinauishing  the  CPU  forces  the 
virtual  processor  again  into  GLOBAL  memory  and  the  process 
stack  . 

Special  effort  has  been  made  to  accommodate  processes 
created  under  PL/I-S6  and  linked  using  LINK86.  The  internal 
architecture  of  such  processes  reauires  some  consideration. 
LINKS6  concatenates  all  PL/I-86  code  segments  into  one 
segment.  The  same  is  done  with  data  segments.  Thus,  PL/I- 
86  processes  consist  of  a  series  of  contiguous  code  segments 
followed  by  a  series  of  contiguous  data  segments. 
Additionally,  at  run  time  PL/I-86  routines  create  a  stack 
following  the  data  area,  and  a  free  space  following  the 
stack.  The  resulting  process  configuration  is  shown  in 
Figure  3. 
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Access  to  all  data  areas  resulting  from  a  single  link, 
is  referenced  to  a  common  data  segment.  Stack  pointers  are 
referenced  to  the  stack  spgmert  register,  and  free  space 
pointers  to  the  extra  segment  register.  Additionally,  some 
PL/I-S6  runtime  routines  assume  the  contents  of  all  three 
segment  registers  (DS,  SS ,  SS )  are  identical.  This 
assumption  disallows  process  stacks  with  unique  stack 
segments,  anri  was  the  motivation  for  modifications  to 
MCCRTEX  discussed  in  Chapter  II.  For  the  demonstration 
programs  Dl.CKE  and  D2.CMD  (Appendix  E)  PL/I-86  generated  a 
default  stack  of  size  400H  bytes.  This  area  was  subdivided 
to  provide  a  120H  byte  process  stack  and  a  2E0E  system  stack 
in  the  case  of  Dl.CMD,  and  two  120H  oyte  process  stacks  and 
a  1C0H  byte  system  stack  in  the  case  of  D2.CMD.  The 
documentation  for  PL/I-86  [Ref .  6  :  p.  2.9]  describes 
mechanisms  incorporated  in  the  PROCEDURE  statement  to 
specify  the  size  of  the  runtime  stack.  If  these  mechanisms 
function  as  described,  all  process  stacks  can  be  contained 
within  the  area  allocated  to  the  runtime  stack.  Otherwise 
process  stacks  can  be  constructed  following  the  free  space. 
This  area  would  be  unprotected  by  normal  CP/'i  CMD  file 
memory  management  functions,  and  its  use  would  require  extra 
care. 

The  MCORTEX  CREATE$PROC  parameters  include  the  absolute 
location  of  process  start,  'Stack,  and  data.  For  this  reason 
it   is   advantageous   to  locate   processes   absolutely  when 
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linking.  LINK86  provides  such  an  option  [Hef.  9  :  p.  7.6], 
however,  the  ABSOLUTE  option  is  applicable  to  the  entire  CMD 
file  rreated  and  cannot  be  used  to  distribute  the  file  non- 
contiguously  in  memory.  Also,  experience  has  shown  that  the 
reauired  code  segment  address  ^ust  be  placed  in  the  data's 
ABSOLUTS  declaration.  Further,  the  code  segment  ABSOLUTE 
declaration  must  hold  an  address  larger  than  the  sum  of  the 
value  placed  in  the  data  ABSOLUTS  declaration  and  the  size 
of  the  data  segment.  This  value  seems  to  have  no  effect  on 
the  location  of  the  file  but,  too  small  a  value  will  cause 
an  error  when  the  file  is  loaded.  See  Appendix  F  for 
examples  of  link  option  files  that  produce  correct  results. 

MCORTFX  processes  ^ay  be  linked  together  as  PL/I-36 
procedures  allowing  sharing  of  PL/I-86  runtime  routines  or 
nay  be  linked  individually.  Separate  processes  reouire  more 
memory  due  to  replication  of  PL/I-86  support  routines, 
however,  great  care  is  required  with  shared  routines  as 
PL/I-86  runtime  routines  are  not  reentrant.  Further,  CP/M- 
86  subroutines  are  neither  reentrant  nor  repl icateable .  I/O 
functions,  therefore,  must  be  viewed  as  shared  resources  and 
access  to  them  strictly  controlled. 
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IV.  MCORTEX  LOADER 

A.   KORE. OPS  /  KCRE.TRC 

During  development  the  MCOFTEX  executive  was  assigned  to 
the  file  KORE  and  was  accessible  through  the  INTELLEC  MDS 
system.  This  file  contained  all  the  multi-processor 
operating  system  functions,  the  initial  G-LOEAL  memory,  the 
supervisor,  the  interrupt  vector,  and  various  low  level 
functions  not  accessible  to  the  user.  To  execute  MCORTEX  it 
was  necessary  to  download  KORE  and  user  processes  to  the 
target  system,  disconnect  the  transfer  catle,  connect  the 
target  system  terminals,  and  pass  control  to  SORE  on  each 
processor.  See  [Hef.  2:  Appendix  A,  B]  for  a  complete 
description  of  the  process.  The  KORE. OPS  and  KORE.TRC  files 
loaded  by  the  ^CORTEX  and  MXTRACE  loaders  respectively,  are 
derived  from  the  original  KORE  file  with  changes  as 
discussed  in  Chapter  II.  Additional  changes  were  made  to 
compact  the  KORE. OPS  file,  and  to  relocate  the  INIT$MOD  for 
simpler,  more  CP/M-66  compatible  loading  of  user  processes. 
Appendix  A  details  the  procedure  used  to  produce  KORE. OPS 
and  KORE.TRC  from  KORE.  Further  discussion  will  use  the 
terms  KORE  and  MCORTEX  to  mean  either  KORE. OPS  or  KORE.TRC 
and  MCORTEX  or  MXTRACE  respectively.  When  this 
generalization  does  not  hold,  the  differences  will  be  noted. 
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Currently   the  MCORTEX  environment  car.   be   established 

ur.der  the  CP/P-86  operating  system.  Control  is  then  passed 
to  ^CORTIX  automatically,  and  user  orocesses  are  create!  in 
the  user  initialization  module.  Control  can  he  passed  back 
to  the  CP/M-66  operating  system  if  applicable. 

E.   KORE  *S  CMB  TILT 

Establishment   of    the   MCORTEX  environment   through 

invocation  of  KORE  as  a  command  file  is  not  feasible  for 
several  reasons.  First,  interpretation  of  C^D  file  headers 
assumes  each  CPD  file  to  be  contiguously  constructed.  KOEI 
is  net.  Second,  5C~T  memory  requirements  include  an 
interrupt  vector.  The  CP/M-9€  memory  management  system  dees 
not  allow  loading  of  command  files  into  the  interrupt  vector 
space.  Thirl,  the  data  segment  for  the  initialization 
module  depends  upon  the  amount  of  executable  code  generated 
by  all  processes  linked  with  the  module  and  is  not  static. 
The  data  segment  register  Initial  valae  must  be  passed  to 
KORI  after  processes  are  loaded.  Fourth,  SORE  includes 
tLOBAL  memory,  which  should  be  loaded  only  once,  while  XC-.I 
must  be  loaded  into  each  processors  local  memory.  An 
additional  consideration  is  the  simplicity  and  flexibility 
gained  when  ROSE  and  user  processes  are  loaded  via  the  same 
mechanism  to  Droduce  the  m"C0?.TTX  environment. 
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C.   OPERATION  CT  THE  MCCRTEX  LOADER 

MCOETEX.CMD  is  an  executable  file  under  the  CP/M-86 
operating  system.  Invocation  of  MCORTEX  without  KORE. OPS  on 
the  default  drive  results  in  an  error  message  and  return  to 
CP/M-36.  MXTRACE  reauires  KORE.TRC.  The  loader  announces 
that  it  is  on  line,  and  reauests  an  entry  to  indicate 
whether  or  not  GLOBAL  memory  should  be  loaded.  Only  the 
first  processor  activated  should  load  GLOBAL  memory. 
Subseouent  loads  of  GLOBAL  memory  would  destroy  data  needed 
by  executing  processors.  If  no  initial  load  of  GLOBAL 
memory  is  made  the  results  are  unpredictable. 

KOFE  is  immediately  loaded  with  or  without  GLOBAL  memory 
as  directed.  The  load  is  accomplished  using  CP/M-86 
functions,  hut  does  not  use  the  CMD  load  utility.  Instead, 
KORE  is  read  in  and  positioned  block  at  a  time  as  reauired. 
The  interrupt  vector  is  not  maintained  as  a  part  of  the  KORE 
files,  but  is  generated  within  the  loader  itself  with  moves 
directly  from  loader  data  memory  to  the  interrupt  vector 
space. 

KORE  load  is  followed  by  a  reauest  for  a  process  file 
name.  The  loader  expects  at  least  one  file  name  to  be 
entered,  and  results  are  unpredictable  if  one  is  not.  User 
processes  are  loaded  using  the  CP/M-86  CMD  load  utility,  and 
user  processes  must  be  CMD  files.  The  entire  file  name  must 
be  entered  including  the  three  letter  extension.  After 
loading   the   first  and  subseauent  user   files,   the   loader 
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reauests  another  file  name.  To  exit  user  process  loading,  a 
return  with  no  preceding  character  should  he  entered.  The 
last  file  entered  must  contain  the  initialization  module,  as 
the  data  segment  register  value  of  this  file  is  determined 
and  passed  to  KORE. 

Completion  of  user  process  loading  causes  control  to  he 
passed  to  MCORTEX.  MCCRTEX  initializations  are  performed, 
including  creation  of  the  IDLE  and  IN  IT  processes  (also 
MONITOR  with  MXTRACE),  and  the  user  initialization  process 
is  entered.  Operation  after  this  point  is  determined  hy  the 
user  processes.  An  ADVANCE  on  the  initialization  event 
count  'FE'  by  any  process  will  halt  all  processors, 
returning  them  to  CP/M-86  control.  The  demonstration 
programs  in  Appendix  E  end  with  a  PREEMPT  call  to  the  INIT 
process.  This  is  only  to  demonstrate  the  operation  of 
PREEMPT  and,  in  fact,  due  to  multiple  declarations  of  tne 
INIT  process  causes  only  the  first  processor  activated  to 
return  to  CP/M-86  control. 
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V.   PL/I=86  COMPATIBILITY 

A.   THE  SUPERVISOR 

KCRE  is  written  in  PL/M-86,  and  reauires  calls  made  to 
the  supervisor  to  meet  PL/M-86  parameter  passing 
conventions.  Further,  the  supervisor  reauires  four 
parameters  with  every  call  regardless  of  the  function 
invoked.  To  meet  uarameter  passing  reuuirements ,  and  to 
hide  details  of  the  supervisor  implementation,  a  translation 
mechanism  between  user  calls  and  the  supervisor  is  reauired. 

The  first  parameter  expected  by  the  supervisor  is  a  byte 
value  indicating  the  function  reauired.  Following  the 
function  code  should  be  another  byte,  a  word  and  a  pointer. 
The  formal  parameters  these  actual  parameters  represent  are 
different  for  different  function  calls,  and  in  some  cases 
the  values  passed  are  not  used  at  all.  The  supervisor  uses 
the  function  code  to  determine  which  parameters  are 
applicable,  and  simply  ignores  the  rest.  It  is  inconvenient 
and  unnecessary  for  the  user  to  provide  unneeded  parameters 
or  to  remember  which  function  codes  belong  to  which 
functions . 

Two  files  (see  Appendix  D)  are  provided  to  mitigate 
differences  between  simple  user  calls  and  supervisor 
reauirements.  The  file  GATEWAY .PLI  should  be  %INCLUDE'd  in 
all  programs  making  calls  on  MCORTEX  functions.   It  declares 
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the  MCORTEX  functions  as  ENTRY  values  with  attribute  lists 
matching  the  parameters  expected  by  GATEviOD.  Note  tnat 
entry  declarations  reserve  memory  spare  for  the  parameters 
specified.  Each  user  process  must  have  separate  memory  set 
aside  for  these  function  calls  to  avoid  concurrency  oroblems 
in  SATEMOD. 

GATEMCD.OBJ  (or  GATETRC.OBJ)  should  be  linked  with  all 
user  processes.  It  provides  the  object  code  necessary  to 
convert  user  calls  to  the  format  expected  by  the  supervisor, 
including  addition  of  function  codes,  and  oaddine  of  calls 
with  extraneous  parameters.  GATEMOE  uses  no  variable  data 
segment  of  its  own,  and  simply  makes  moves  from  user  data 
areas  to  the  user  stack:.  This  ensures  that,  so  lens  as  the 
user  data  areas  involved  are  unshared,  C-ATZMOB  is  reentrant. 

Note  that  all  parameters  in  the  GATEWAY  declarations  are 
BIT(e)  or  BIT(16).  PL/M  has  two  unsigned  integer  data 
types,  3YTE  and  IkORD,  that  are  used  extensively  in  MCORTEX. 
There  are  no  corresponding  data  types  in  PL/I-36,  and  BIT(S) 
and  PIT(16)  are  the  closest  available  substitutes.  In 
t'CCRTEX  processes  it  is  sometimes  convenient  to  add  twe 
?IT(16)  numbers.  Unfortunately,  mathematical  computations 
on  BIT(16)  values  are  not  supported  in  PL/I-36.  This  set  of 
conditions  necessitated  the  development  of  the  function 
Add2BIT16  included  in  GATEWAY.  As  the  name  implies,  this 
function  adds  two  EIT(16)  parameters  as  unsigned  integers 
and   returns   the  result  as  a  BIT(lc)  value.   If  a  carry   is 
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produced,   it  is  ignored,   and  the  result  returned  will,   of 
course,  be  incorrect. 

E.   PL/I-86  PARAMETER  PASSING  CONVENTIONS 

Parameters  passed  in  a  PL/I-S6  procedure  call  arc 
accessed  via  an  array  of  pointers  [Ref .  1?'.  p.  16.1]  .  The 
location  of  the  pointer  array  is  provided  to  called  routines 
through  a  pointer  in  the  BX  register.  Using  register 
indirection  &ni.  indexing,  pointers  to  actual  parameters  are 
loaded  into  system  pointer  registers.  Parameter  values  can 
then  be  manipulated  as  required.  Figure  4  is  a 
diagrammatical  representation  of  the  parameter  passing 
structure  that  might  be  established  by  PL/I-86  for  a  call  on 
the  MCORTEX  supervisor. 

All  BIT(16)  values  returned  to  user  programs  by  the 
GATEMCD,  either  as  a  result  of  a  call  to  ADP2EIT16  or  as  a 
result  of  calls  to  the  MCORTEX  functions  READ  or  TICKET,  are 
returned  in  the  BX  register.  This  is  the  convention  followed 
by  3?86  based  PL/I-86. 

C.   PL/M  REENTRANT  PARAMETER  PASSING 

All  MCORTEX  PL/M-86  routines  are  reentrant.  The  ASM?6 
routines  lock  out  interrupts  during  execution  so  that 
reentrancy  is  not  an  issue.  In  particular  the  MCORTEX 
supervisor  is  reentrant.  This  is  the  only  KOBE  module 
accessible  to  user  processes. 
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PL/M-56  reentrant  processes  expect  parameters  to  be 
passed  on  the  stack  in  the  order  they  appear  in  the 
procedure  declaration.  Fyte  values  reauire  two  bytes  on  the 
stack  ev^n  though  only  one  byte  contains  usable  information. 
Parameters  are  followed  immediately  on  the  stack  by  the  call 
venerated  return  address.  The  called  process  stores  the 
callers  OS  and  BP  registers  on  the  stack,  and  establishes 
its  own  DS  and  PP  values.  Access  to  parameters  is  via  an. 
index  referenced  to  the  called  process  B?  value.  Figure  5 
is  a  diagrammatical  representation  of  how  a  stack  is 
structured  following  a  call  to  GATE$KEE?ER. 

GATEMOD  and  GATETRC  both  act  as  translators  of  user 
calls  into  formats  required  by  the  MCORTEX  and  MXTEACE 
supervisors  respectively.  The  only  difference  in  the  two 
gate  modules  is  the  address  of  GATE$KSEPER  in  their 
associated  KOREs.  Using  the  EX  register  link  to  retrieve 
data,  they  build  the  stack  structure  expected  by  the 
supervisor  module,  supplying  function  codes  and  padding  when 
required.  They  then  nake  a  call  on  GATE$KEEPER.  If  the 
call  is  to  READ  or  TICKET,  space  is  reserved  or  the  stack 
for  the  returned  value.  This  value  is  POP  'ed  into  the  EX 
register  before  exiting  to  the  calling  process. 

The  gate  modules  provide  one  additional  service.  KORE 
functions  do  not  guarantee  the  integrity  of  the  ES  register. 
PL/I-86  in  OPTIONS  (MAIN)  initializations,  however, 
establishes   the   ES,   SS,   and  DS  registers  to  be  of   eoual 
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value,  and  some  runtime  routines  expect  this  relationship  to 
be  maintained.  To  overcome  the  conseauences  of  these 
opposing  positions,  the  gate  modules  ^ush  the  ES  register 
onto  the  stack:  on  entry,  and  pop  it  before  return  to  the 
calling  routine.  7ror,  the  standpoint  of  user  processes,  thc 
ES  register  value  is  unchanged  during  MCORTEX  calls. 

D.   GENERATING  MCORTEX  PROCESSES  USING  PL/I-86 

Proceiures  written  in  PL/I-86  become  MCORTEX  processes 
via  execution  of  CREATE  PEOC  functions.  MCORTEX  processes, 
though  written,  compiled,  and  linked  as  PL/I-86  procedures, 
are  distinct  processes.  Each  reauires  tne  state  of  the 
orocessor  to  be  orepared  by  the  MCORTEX  executive  prior  to 
every  entry  into  the  process.  This  is  acco^ol i shei 
transparently  when  Tjaking  MCORTEX  function  -alls. 
Procedures  in  a  MCORTEX  process  car.  be  accessed  fro^  within 
the  process  normally,  however,  a  MCORTEX  process  rust  be 
entered  through  a  MCORTEX  function  call,  and  never  through  a 
PL/I-86  procedure  call.  Also  MCORTEX  processes  can  be  linked 
into  a  single  CMO  module  or  car.  be  developed  as  separate  CMR 
modules.  In  the  first  case  processes  may  share  common  PL/I- 
86  runtime  routines  as  well  as  CP/M-36  utilities.  In  the 
second  case  PL/I-86  runtime  routines  are  not  shared,  but 
CP/M-86  utilities,  if  used,  are  still  shared. 

MCORTEX  currently  expects  an  initialization  module  to  be 
located  starting  at  0439?E.  This  module  is  the  first  user 
process   executed,   and   can   be  used  to  create   user   event 
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counts  and  sequencers,  as  well  as  processes.  .after  all 
initializations  are  performed,  an  AWAIT(  'FE'B4,  '00551  'B4) 
should  be  executed.  This  puts  all  initialization  processes 
on  a  comnon  reserved  event  count  thread.  An  &DVANCE( 'FE 'B4) 
by  any  process  will  return  all  processors  to  CP/M-36  control 
(assuming  CP/M-86  is  resident  locally). 

MCORTEX  processes  are  written  as  paramet  erle  ss  PL/I.-Bfi 
orocedures.  Execution  of  CREATE  PP.OC  functions  in  the 
initialization  nodule  establishes  a  virtual  processor  for 
each  process,  and  sets  all  process  states  to  ready.  The 
AWAIT  call  at  the  end  of  initializations  forces  a  scheduling 
to  take  place.  The  highest  oriority  virtual  processor  will 
fce  ^ranted  access  to  the  real  Drocessor.  Further  scheduling 
is  controlled  by  user  processes  using  MCORTEX  furctions. 

Parameters  required  by  the  CREATE  PRCC  function  include 
values  unknown  to  the  programmer  until  after  all  processes 
have  beer,  compiled  and  linked.  This  requires  that  dummy 
values  be  urovided  for  the  first  compilation  and  linking. 
Links  should  be  performed  with  the  MA?  command  option 
selected,  as  this  Drovides  information  relevant  to  user 
process  definition.  A  partial  MA?  print  out  for  the  Dl 
demonstration  process  is  shown  in  Table  2. 

CREATE   PROC   has  eight  parameters.    The  first  two   are 
process   identification   and  process   priority.    These   are 
arbitrary   ?IT(9)  values  assigned  by  the   programmer .    Four- 
other  parameters,   the  CS,   DS,   SS,  and  ES  register  values, 
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TABLE  2: 


Mao  for  file 


D1TRC  . CMD 


Segments 


Length 

S  tart    Stop 

A  1 i«?n 

Co^b 

Name 

Clas 

2CE3 

(0000:0005-2CE7) 

BYTE 

PUB 

CODE 

CODE 

F5C4 

(0000:0100-06C3) 

word 

PUB 

DATA 

DAT8 

0021 

(0000:0eC4-06E4) 

WORD 

CO^I 

7CONSP 

DATA- 

0213 

(0000:06F6-06F8) 

WORD 

COM 

7FPBSTK 

DATA 

002E 

(0000:06FA-0727) 

WORD 

COM 

7F?E 

DATA 

0002 

''0000:0723-0729) 

WORD 

COM 

7CNCOL 

LATA 

0009 

(0000:072A-0732) 

WORD 

COM 

7FILAT 

D  A  T A 

0009 

(0000:0734-073E) 

WORD 

COM 

7FMTS 

DATA 

001B 

(0000-.073C-0756) 

WORD 

COM 

7EBUFF 

DATA 

0003 

(0000:075£-0^5A ) 

WORD 

COM 

7CNCOD 

DATA 

0025 

(0000:3750-0780) 

WORD 

COM 

SYS  IN 

DATA 

0028 

(0000-.0782-07A9) 

WORD 

COM 

SYS  PRINT 

DATA 

Groups 

Segments 

CGROUP 

CODE 

PGROUP 

T)  a  t  fi 

7CONSP 

7FPBSTK 

?F?B 

7CNCOL 

7FILAT 

?F 

MTS 

7FEJFF 

70NCOD 

SYSIN 

SY 

SPRINT 

map  for  Todule:   I N IT 

001E   (0000:0005-0022)  CODE 

0021   (0000:0100-0120)  DATA 

map  for  module:   MCDEMO 

0072   (0000:0023-0094)  CODE 

0039   (0000:0122-015A)  DATA 

nap  for  module:   LOG_ON 

0127   (0000:0095-01BB)  CODE 

00C0   (0000:015C-021B)  DATA 

nap  for  module:   GATFM/T 

00D0   (0000:01BC-02SB)  CODE 

0004   (0000:021C-021F)  DATA 
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can  be  determined  by  performing  an  executable  lead  of  the 
process  CMD  file  under  DCT86.  Values  displayed  by  DDT86 
include  the  CS ,  and  DS  register  valaes.  As  mentioned 
earlier,  it  is  reouired  that  the  DS,  SS,  and  ES  register 
values  be  equal  for  proper  operation  of  some  FL/I-B6  runtime 
routines.  Except  under  special  carefully  considered 
circumstances,  programmers  should  ensure  that  this  is  the 
case.  The  remaining  two  parameters  are  pointer  values 
obtainable  from  the  link  MAP  file. 

The  first  section  of  the  map  file  gi/es  a  summary  of  all 
cede  and  data  segments  included  in  the  associated  CMD  file. 
Several  data  segments  are  listed  in  order  of  their 
occurrence  in  memory,  from  lowest  offset  to  highest  offset. 
The  ranee  of  the  last  entry  gives  the  last  address  offset 
occupied  by  any  data  segment.  Higher  address  offsets  still 
within  the  memory  space  of  this  CMD  file  are  assigned  to 
stack  and  free  space  structures  by  PL/I-86,  with  the  system 
stack  preceding  free  space.  The  S?  value  required  by  the 
CREATE  PROC  function  can  be  obtained  by  adding  the  size  of 
the  stack  reouired  to  the  last  offset  occupied  by  data.  If 
another  MCORTEX  process  stack  is  required,  its  SP  can  be 
obtained  by  adding  its  size  to  the  S?  of  the  previous 
process.  The  system  stack  can  be  divided  as  necessary  by 
continuing  in  this  manner.  The  total  number  of  bytes 
occupied  by  MC03TEX  process  stacks  should  not  exceed  the 
number  of  bytes  provided  by  PL/I-36  for  the  system  stack. 
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The  MAP  file  also  contains  maps  of  the  individual 
modules  linked  into  the  CMD  file.  These  maps  provide  data 
about  locations  of  code  and  data  segments  within  the  larger 
code  and  data  segments  summarized  in  the  segments  section. 
The  beginning  address  of  each  module  is  given.  This  offset. 
represents  the  IP  value  for  that  particular  module. 

With  all  oarameter  values  determined,  the  initialization 
orocess  must  fce  recompiled,  and  all  processes  relinked.  The 
resulting-  CMD  file  can  be  executed  in  the  MCOi-TEX 
envi  ronment . 
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VI.   CONCLUSIONS 


The  principal  goals  of  this  thesis  were  met.  MCOPTIX 
has  been  integrated  into  a  selected  environment  to  provide 
multi-processing  and  multi-processor  capabilities.  Assets 
available  under  the  CP/M-86  operating  system  have  been  made 
available  to  MCORTEX  processes.  Also,  development  of 
MCORTEX  processes  in  the  high-level  language  PL/I-86  has 
been  provided  for  through  reentrant  gateway  transformations 
between  PL/I-86  calling  structures  and  the  structures 
expected  by  the  MCOPTEX  supervisor.  Programs  have  been 
written  to  demonstrate  that  each  of  the  MCORTEX  functions 
can  be  used  from  within  a  process  written  in  PL/I-86.  Two 
versions  of  the  operating  system  kernel  have  been  product . 
One  version,  found  in  the  KORE.TRC  file,  retains  all 
diagnostic  cues  of  the  development  version,  primitive  I/O 
functions,  and  the  MONITOR.  The  second  version,  found  in 
the  KORE.OPS  file,  has  these  items  removed. 

No  testing  of  the  system,  except  to  monitor  the  proper 
operation  of  the  demonstration  programs,  has  been 
accomplished.  The  demonstration  programs  have  been  run 
successfully  using  two  slave  SBC's  and  using  the  master  SBC 
and  one  slave  SFC.  The  loader  program  sometimes  will  not 
accept  a  file  name  without  the  drive  prefix.  No  pattern  to 
this  behavior  has  been  observed. 
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As  noted  earlier,  neither  CP/M.-S6  nor  PL/I-86  runtime 
routines  are  reentrant.  Sharing  ary  section  of  code  froT 
either  system  in  a  concurrent  environment  requires  care  arc! 
proper  control  of  access  to  shared  code.  In  many  instarces 
this  can  be  accomplished  through  application  of  MCORTEX 
functions.  When  proper  sequencing  through  PL/I-86  runtime 
routines  cannot  be  guaranteed,  processes  usins  shared 
routines  must  be  separated,  and  multiple  links  performed. 
This  produces  a  copy  of  the  runtime  routines  for  each  linked 
group  of  modules.  Since  processes  not  linked  into  the  same 
CMD  file  do  not  share  common  data  structures,  communication 
between  the  modules  becomes  more  complex.  PL/I-86  uses 
sixteen  bit  pointers,  and  has  no  built  in  mechanism  to 
transfer  data  outside  the  data  segment  assigned  to  the 
linked  module.  This  deficiency  also  adversely  affects  the 
communication  through  common  memory  of  processes  on  separate 
SBC's. 

Future  research  with  MCORTPX  should  investigate  the 
problems  discussed  above.  Testing  of  the  system  using  more 
than  two  SEC's  should  be  conductei.  Investigation  of  the 
relationships  between  MCGRT5X  processes  sharing  sections  of 
PL/I  -85  and  CP/^-86  code  must  be  conducted,  and  the  best 
means  of  controlling  access  to  shared  code  determined.  If 
possible,  this  should  be  accomplished  in  a  high  priority 
system  process  that  is  transparent  to  users.  Some  convenient 
means   must  be  provided  to  give  processes  access   to   memory 
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outside  their  assigned  data  segments.  Finally,  AEGIS  system 
processes  ani  real  time  input  simulation  processes  should  he 
adapted  to  the  MCORTEX  environment,  and  performance 
measurements  made. 
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APPENDIX  A 
ISIS-I I  TO  CPZMZ36  TRANSFER 

I  .   PRE-PCWER-CN  CHECKS 

A.  SBC  configured  for  CP/M-86  cold  boot  is  ir  MULTIBUS 
odd  slot  and  no  other  clock  master  SBC  is  installed. 

B.  Bubble  memory  is  in  MULTIBUS. 

C.  REMEX  controller  is  in  MULTIBUS,  and  properly 
connected  to  REMEX  drive. 

D.  If  ^ICROPOLIS  hard  disk  is  to  te  used,  ensure  that 
it  is  connected  to  clock  master  SBC. 

E.  Ensure  32K  shared  memory  module  is  installed. 

E.  Connect  FS232  transfer  cable  between  J2  on  SBC,  and 
24^0  baud  CRT  port  of  the  MDS  system.  If  this  cable  has  a 
'null  modem'  switch  on  it,  set  it  to  'null  modem'.  This 
transposes  wires  2  and  3.  The  switch  may  alternately  be 
marked  'computer  to  computer'  and  'computer  to  terminal'. 
Set  to  "computer  to  computer". 

G.  Connect  any  CRT  to  the  9600  taud  TTY  port  of  the  MDS 
system.   Ensure  CRT  is  set  tc  9600  baud. 

H.  A  CRT  will  be  connected  to  the  SBC  after  the  loading 
is  completed,  and  should  have  an  RS232  cable  hooked  to  the 
serial  port.  The  CRT  connection  should  lead  to  a  flat  25 
wire  ribbon  and  J2  connector  so  it  can  eventually  be  hooked 
to  the  SBC's  serial  port. 
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II .   POWER  ON  PROCEDURES 

A.  Turn  the  power-on  key  to  OH  position  at  MULTIBUS 
f  ra^ie . 

B.  Press  RESET  near  power-on  key. 

C.  If  needed  apply  power  to  MICROPOLIS  bard  disk. 

D.  Apply  power  to  REMEX  disk  system.  After  system 
settles,  put  START/STOP  switch  in  START  position.  Following 
a  lengthy  time-out  period,  the  *EADY  lisht  on  the  front  of 
the  RFMEX  disk  system  will  illuminate,  and  the  system  is 
ready.  Alternately,  the  FESET  button  on  the  MULTIBUS  can  be 
pressed  three  times,  with  a  small  time-out  for  the  system  to 
settle  each  time.  Following  the  third  button  push,  the 
READY  on  the  front  of  the  REMEX  disk  system  will  illuminate 
as  before. 

E.  Insert  the  boot  disk  into  drive  3. 


F.  Apply  power  to  the  CRT. 

G.  Put  the  Bubble  Device  RUN/HALT  switch  to 
H.  Power  up  the  MDS  disk  drive. 

I.  Power  up  the  MDS  terminal. 

J.  Turn  power-on  key  to  ON  at  MDS  CPU. 


RUN 


III.   BOOT  UP  MDS 

A.  Place  diskette  with  executable  modules  and  SB-C361  in 
drive  0 . 

E.  Push  upper  part  of  boot  switch  in  (It  will  remain  in 
that  position). 

C.   Press  reset  switch  and  then  release  it. 
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D.  When  the  interrupt  light  #2  lights  on  the  front 
panel,  press  space  "bar  on  the  console  device. 

E.  Reset  the  boot  switch  by  pushing  the  lower  part  of 
the  switch. 

F.  ISIS-II   will   announce   itself  and   give   the 
prompt . 

IV.  LOAD  MCOPTEX 

A.  At  MPS  console,  type  "S3C86KCR>". 

B.  II  '*CONTDOL* "  appears,  SBC  was  not  able  to  set  its 
baud  rate.   Press  RESET  on  MULTIBUS  frame  and  try  again. 

C.  If  'Bad  EMD3  connection'  appears,  you  will  not  be 
able  to  continue.  Check  connections.  Make  sure  diskette  is 
not  write  protected.   Push  RESET  at  frame.  Try  again. 

D.  SBC861  will  announce  itself  and  prompt  with  ".". 

E.  Type  "L  K0RE<cr>".  Wait  for  ".".  At  this  point  the 
KOBE  module  has  been  leaded  into  the  SBC  memory,  and  into 
the  shared  memory  board. 

V.  SAVING  KOBE  TO  CP/M-86  FILE 

A.  Leaving  the  SBC861  process  active  on  the  MDS  system, 
disconnect  the  PS232  J2  connector  at  the  SBC,  and  connect 
the  terminal  prepared  earlier. 

B.  At  the  newly  connected  terminal  type  "tFFD4 :4<cr V . 
The  CRT  will  not  echo  this  entry.  Respond  to  the  cues  that 
follow  as  reciuired  until  CP/M-86  is  up. 

C.  Now  enter  DDTee.    At  this  point  KCRE,  CP/M-86,   and 
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DDTB6   all   are  resident  in  the  SBC  memory  and   in   the   32K 
shared  memory  board. 

D.  Usir.e  DDT86  commands,  reposition  the  parts  of  KORE 
required  so  that  the  code  can  he  saved  into  one  file.  Data 
necessary  to  determine  the  initial  locations  of  the  code  is 
found  in  KCRE.MP2.  The  DDT86  instructions  used  for  the 
current  KORE. OPS  and  KOFE.TFC  files  follows: 
***  KCRE.OPS  #** 

MBB0:0,TFF, 480:0  ***  Move,  starting  at  aldress  B"B0:0, 
DFE  bytes  of  code  (main  part  of  KORE)  to  new  start  address 
480:0. 

M439:0, 80, 560:0  ***  Move,  starting  at  address  ^39:0,  hfl 
bytes  of  code  (initialization  nodule)  to  new  start  address 
560:0  (following  main  part  as  moved  above). 

ME794:0,6BE, 568:0  *##  Move,  starting  at  address  E794:0, 
6BE  bytes  of  code  (GLOBAL  memory)  to  new  start  aldress  568:0 
(following  initialization  module). 

WKCRE. OPS ,480:0, 153F    ***   Write  to  the  default  disk'  a 
file    called   KORE. OPS   starting   at   address   480:0   and 
containing  153E  bytes. 
***  KORE.TRC  #** 

M439:0,25,C68:0  ***  Move,  starting  at  address  439:0,  25 
bytes  of  code  (initialization  module)  to  new  starting 
address  C68:0  (following  main  KORE  code). 

MAC0:0,1*EE, 439:0  ***  Move,  starting  at  address  AC?:0, 
1AEF   bytes   of  code  (main  KORE  +  initialization  module)   to 


53 


new  starting  address  439:7. 

ME794:0,6Br, 439:1B00  ***  Move,  starting  at  address 
E794:0,  6BF  bytes  of  code  (GLOBAL  memory)  to  new  starting 
address  439:1B00  (following  ini  tialiaz  tion  -nodule). 

WKORE.TRC, 439:0, 21C0  ***  Write  to  the  default  disk  a 
file  called  KORE.TRC  starting  at  address  439:0  ani 
containing  21C0  bytes. 

NOTE:  The  main  KORE  module,  the  initialization  module, 
and  GLOBAL  memory  are  located  to  separate  parts  of  the  S3C 
by  the  MCOETEX  loader.  The  system  used  requires  that  these 
modules  be  saved  into  the  file  in  125  byte  blocks.  Further, 
any  change  in  the  number  of  128  byte  blocks  occupied  by  each 
must  be  reflected  in  the  .^CORTEX  loader  code. 
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APPENDIX  P 
MCORTEX  UNEER  DDT86 

When  troubleshooting  MCORTEX  processes  using  DDT86,  it 
is  important  to  realize  that  DDT86  break  points  are 
implemented  as  8086  commands  written  at  the  locations  in 
memory  selected  as  creak  points.  If  'DDTB6  MCORTEX"'  is 
executed,  the  MCORTEX  system  will  be  loaded  under  the 
control  of  DET86.  If  an  attempt  is  made  to  execute  the 
loader  code  to  a  break  point  inside  a  user  module  which  is 
still  to  be  loaded,  DET96  installs  the  break  point  command 
as  directed,  but  this  command  will  be  overwritten  when  the 
user  code  is  loaded.  The  node  will  execute  through  the 
intended  break  point,  and  the  desired  result  will  not  be 
achieved . 

To  enable  break  points  within  user  processes,  execute 
'DDT86  MCORTEX'  as  before.  Now  set  a  break  point  inside. the 
MCORTEX  loader  code,  but  after  KORE  and  the  user  processes 
have  beer  loaded.  The  loader  will  now  input  KORE  and  user 
modules  as  directed,  and  EDT86  will  break  inside  the  loader. 
At  this  point  further  break  points  within  KORE  and  user  code 
can  be  successfully  set,  and  will  not  be  overwritten. 

Trying  to  use  DDTS6  on  PL/I-86  code  can  be  very 
confusing  as  the  8086  code  produced  is  not  familiar.  Use 
the  MAP   function   of  the  LINK86  linker   to   give   yourself 
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landmark  addresses  as  you  traverse  the  code.  The  MAP  file 
gives  you  beginning  addresses  for  each  of  your  procedures 
and  each  of  the  runtime  modules  provided  by  PL/I-36. 
Similar  information  is  found  in  the  MP2  files  for  KORE  code. 
When  tracing  code,  use  a  hierarchical  search.  Use  go 
instructions  with  break  points,  or  individual  trace 
instructions  to  execute  small  sections  of  code  at  a  time. 
Break  points  should  be  set  just  past  the  next  call  to  be 
executed.  When  a  failure  occurs,  you  will  have  bracketed 
the  possible  code  causing  the  error.  If  the  error  is  within 
the  call,  simply  trace  into  the  call  one  trace  step,  list 
the  code  and  proceed  in  the  hierarchical  manner  usei  before. 
Mote  that  you  must  be  mindful  of  jump  instructions  in  the 
execution  path.  You  may  have  to  trace  several  bytes  of  code 
to  ensure  that  the  execution  path  includes  th°  break 
address.  This  procedure  will  get  you  to  the  errant  code  with 
the  least  amount  of  tracing. 
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APPENLIX  C 
^COFTEX  LOADIP 

This  file  when  assembled  produces  the  MCCRTEX  loader. 
The  loader  when  invoked  from  CP/^-86,  gives  an  indication 
that  it  is  on  line,  and  then  asks  if  GLOBAL  memory  is  to  be 
loaded.  The  first  CPU  entering  the  MCOFTEX  environment 
should  load  GLOBAL  memory,  all  others  should  not.  The  last 
Drocess  loaded  on  each  SBC  must  contain  the  initialization 
routine  containing  all  create  process  functions.  This  file 
contains  code  that  is  conditionally  assembled  to  cr°ate 
MXTRACE.  The  value  of  MCORTEX  in  the  code  controls  which 
module  is  oroduced,  and  the  name  of  the  file  produced  must 
be  changed  Dy  the  user. 
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v1  -  *'*  \'»  »*»  »•*  fc*»  »•*  «••*  •,•*  »'»  »*»  s**  *l*  >»'■•  «■**  *'*  *'*  »**  »'*  *A*  ■»''  »'#  *'*  *'*  »'»  «J*  *•"•  »'*  •.*•  »'•  »'*  O*  *•■•  *'*  »•*  •,'>  *•*  »<*  »•*  «J*  »'»  »l»  >'..  ij*  »,•*  «,'-  *,'-  «J*  «'»  »l»  *<*  *'*  O*  »'j  »•*  »i*  »'»    / 

*,»  *s  *j«  rt  •  «■,■«  *.(*.  *(»  ..,-.  j_*  *(.  *ti.  Jt*  *.  -  ^,»  *|-»  >|»  *,»  —|»  *•)»  »,  -  «»,••  »,.  *,s  *,.  *p  *,»  *,-  #,■»  .  |  •  *|»  *|*  'i*  »i»  »|*  »|*  *(»  *(*  *(•*  *i"-  »(»  •>,-  i»  >,»  *(»  •,t»  *|»  «*i»  *|»  *,»  *|»  *|»  *|»  *j»  *j"»  *|»  •y*  «■(■•  / 

*  MCORTEX  /  MXTRACE   File  TEX/TEC.  A86   Rowe  13  Feb  84  */ 

* */ 

*  This  program  loads  the  MCORTEX  operating  system  fron  */ 

*  disk  into  the  current  CP/M  environment.   The  system  */ 

*  memory  space  is  reserved  using  CP/M  memory  management  */ 

*  functions.   Since  IMITIALPROC  must  be  over  written  by  */ 

*  the  user  I NITI »LPROC ,  the  memory  it  occupies  is  not  */ 

*  reserved.   The  portions  loaded  into  the  interrupt  */ 

*  area  and  into  shared  memory  (ie.  GL03ALM0BULE )  are  in  */ 

*  areas  not  managed  by  CP/M  and  are  thus  protected  from  */ 

*  user  overwrite  when  using  PLI  CMD  files.   Conditional  */ 

*  assemblies  allow  assembly  of  either  MCCRTEX  or  MXTRACE*/ 

*  depending  on  the  value  assigned  to  MCORTEX  at  the  */ 

*  beginning  of    the  code.   Nine  such  conditional  */ 

*  assembly  statements  are  included.  */ 

»'-  -.'-  »'«  «.'  -  -.'-•  «.''  *\f     *.'-•  s''   ■  '-r   *}*    -,*/■      -'-  »''  «!<•  »'»  *.'rf  »'  r    -J-r    -■'  1    •.'•■   -.'»  »'.-  «,'-  ■*•  -  h'tf  ».**■  %.*-  »•*  »'.-  »'.■  «' -  «.'-  -'  •   >'-  »l*  »,'*  -,'.■  ■**-■  ■«'  *  %l»  -.'»  >.'»  -Jf   *} 0    %>>  - '  -     «.*-•  *'*  V«  V**  •>')•  V'  V'  V'  «■'-  "■''     I 

>,-.  *y»  »^i  7,*  ^*  ?,h  3|"»  #,»  iy    ff-   if*   *f    ¥\-*   *p  *(»  *p  *|^  ^i»  -j*  *^  «■,■•  ',■»  *|»  ?,*  J)*  »,*.»,'•  *p  ^p  »|%  »(»  ^t^  *!•*  *j»  *,•  *,*  *p  Jt»  *^  *|"«  ^»  --p  J(-»  »|*  *j^  ^*  i',*'  Jp  ^*  /,*  ^|»  ^(*«  ^p  *,»  *p  ^r»  *■(*   / 

DSFG 

ORG   0000H 
j*»e#  MCORTEX  /  MXTRACE  SELECTION  *x#*xx***x*x**x***x*x*#**/ 

MCORTEX  EOU  1  J***  SET  TO  ZERO  FOR 

J***  MXTRACE,  TO  ONE  FOR 
;<=**  MCORTEX 

;***  ADDRESS  CONSTANTS  *5!'*^**5?5::*^******'!:*x«**5;«*>i:^^»:-*:5^^5;<^';s^^/ 

FCE  EOU  005CH       J***  FILE  CONTROL 

FCB_NAME  EOU  005DH       J***  BLOCK 

FCE_EXTENT  EOU  0068H 

FCB_CR  EOU  007CH 

INT  ADD_CS  EOU  0011H     ;*v*  INTERRUPT  CODE 

INTR~PT_OFFSET  EOU  0033H     ;***  SEGMENT  AND 

IF  MCORTEX 

INTRPT_CS  EOU  0C6BH     ;***  VECTOR 

ELSE 

INTRPT_CS  EOU  0C31H     ;^###  1  ####  < 

ENDIF 

;***  pupe  NUMBER  CONSTANTS  >;«  ^  ^i^  *  ^  *  ^=^  *  *  *  *  ^  ^^'i'  x<  *  »:=:  ^  =.•<  x=  x=*  *###  ##/ 

EIGHTK_K  EOU  0080H 

IF  MCORTEX 

NUM_KOPE_BLOCKS  EOU  001CH 

ELSE 

NUM  KORE_BLOCKS  EOU  0035H     ;####  2  ####  < 

ENDTF 

ASCII_0  EOU  '0' 

ASCII  9  EOU  '9' 
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ECU 

'A' 

ECU 

'Z' 

ECU 

• 
• 

EQU 

*    ' 

ECU 

•     * 

ECU 

000DH 

ECU 

000AH 

ASCII   A 
ASCI I_Z 

COLON 

SPACE 
PERIOD 

CR 
LF 


j***    CONTROL    TRANSFER    CONSTANTS    *###*##*#*##*###*###**##*#/ 

IE    MCORTEX 

KORE   SP  ECU    0080K 

KORE_SS_VAL  EOU    0C78H 

KCRE_DS_VAL  ECU    0C69H 

ELSE 

KORE_SP  EOU    00EEE         ;####    3    ##**    < 

KORE_SS_VAL  EOU   0C30H         ;*###    4    ####    < 

KORE_DS_VAL  ECU    0C00H         ;####    5   ####    < 

ENDIF 

j  #*#   cp/m   FUNCTION    CONSTANTS    :'.'*******5i:*5^*^^'^5r:5!':!:;;;;i;j.':>i:'-r::!:*,!:*3rjii/ 

CP!*_BDOS_CALL 

SYSTEM_RFSET 

CONSCLF_OUT?UT 

READ 

PRINT   STRING 

0PEN_FIL5 

READ   SEQUENTIAL 

SET_DMA_OFFSFT 

SET~DMA   BASE 

ALL0C_MEM_A3S 

FREE_ALL_MEM 

PROGRAMJLOAD 

NOT_FOUND 

«     %J*  *A*  «.«.»  k*  TT>   O    f*     A     /"t    T~t  C  V"  V«  V'  "',-  ■(**■  V*  V*  V*  *■»  V-*  •***■  ***  »•*  ***  V"  V*  V-  V*  »V  »•*  O-  »•*  »•*  ^f  *iV  V*  »**  ****  *'-  ***  *V  *•*  V*  ***  *>■*'  -J^  ■*•-  *•*  V"  **■»  **■*   ^»  **'  *'*      / 

.  vct       PI  i  J  u  ^  'J       J  "r  'r>  *>'"      n*     '  "**       *r*  *l"  *'* **"  *l"  n"  **"  ***"       ***       *r n*  -t5  'r '',*  V  *r"r  *r  *ir»  *-i-  / 

IN_STRING  D3    15 

RB    16 

NO_FILE_MSG    DP    'KORE    NOT    ON    DEFAULT    DRIVES' 

N0~IN   FILE_MSG   DB    'INPUT    FILE    NOT    ON    DESIGNATED   DRIVE*' 

N0_MEM0RY    MSG    DB    'UNABLE    TO    ALLOCATE    MEMORY    SP»CE    FOR' 

DB    '    MCORTEX*' 
FILE_FOEM_ERR_MSG    DB    'INCORRECT    FILE    FORMAT    -   TRY    AGAIN*' 

START_MSG    DB    'MCORTEX    SYSTEM    LOADER    ***    ON    LINE*' 
?_NAME_MSG    DB    CE  ,LF , LF , 'ENTER    PROCESSOR    FILE    NAME:',CR,LF 
DB     '$' 
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ECU 

224 

ECU 

0000H 

ECU 

0002H 

ECU 

000AH 

ECU 

0009R 

ECU 

000FK 

ECU 

0014E 

ECU 

001AH 

ECU 

0033H 

ECU 

0?38E 

ECU 

003  AH 

ECU 

003BH 

ECU 

00FFR 

GLOPAL_Q_MSG  DP  CR , LF, LF , 'LOAD  GLOBAL  MEMORY?  '  ,CR , LF 
GM2_MSG  DB  '"Y"  TO  LOAD,  "RETURN"  TO  SKIP '  ,CR  ,LF ,  '$ ' 

•  #**  MCORTEX  RELOCATION  VARIABLES  #####*#####*##*####*##**/ 

!***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  ***#*****/ 

;***  The  following  five  lines  of  code  should  net  he    *#*/ 

;***  separated  as  this  program  assumes  they  will  he    ***/ 

J***  found  in  the  order  shown.   The  code  is  used  for   ***/ 

;#**  memory  allocation  and  as  a  Pointer  to  KORE.  ***/ 

?***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  ****#****/ 


EORE_STAPT  DW   0030H  ;***  CAUTION 

IF  MCORTEX 

KOREl_BASE  DW  0BB0H  J***  CAUTION 

EORE1  BASF  DW  0AC0H     ;####  6  #»##  < 

FNDIF 

KCRE  EOU  DWORD  PTR  KOPE_START  ; ***  CAUTION 

IF  MCORTEX 

KOREl_LENSTH  DW  00E0H  J***  CAUTION 

ELSE 

KORE1  LENGTH  DW  01COH     ;####  ?  *###  < 


ENDIF 

KOREl_M_EXT  DP  0  ;**'iC  CAUTION 

IF  MCORTEX 

KORE_NAME  DP  'KORE     OPS' 

ELSE 

KORE_NAME  DP    'KORE  TRC  '    ;###    6    ###    <  — 

ENDIF 

K0RE2_BAS5  DW  0E794E  J***  GLOBAL  MEMORY 

INTERRUPT_VECTCR  DW  I NTRPT_OFFSET , INTR?T_CS 

IVT_VECT0F_ADD  DW  INT_ADD_CS 

INIT  OFFSET  DW  0000E   J***  INITIALIZATION 

INIT_BJSF.  DW  0439H   i***  ROUTINE  PARAMETERS 

IF  MCORTEX 

INIT_DS_SEG  DW  0C98H   ?***  FOR  DYNAMIC  ASSIGNMENT 

ELSE 

INIT_DS_SEG  DW  0C58H         ;####  9  ###*  < 

ENDIF 

INIT_DS_OFFSET  DW  0068K   ;*##  WHEN  USER  INITIALIZATION 

INIT_I?_OFFSET  DW  0074H   J***  IS  INDICATED 

}##*  CONTROL  TRANSFER  VARIABLES  ##***####**##*#*#*###*>!**#*/ 

KORE_SS  DW  KORE_SS_VAL 

KORE  DS  DW  KORE  DS  VAL 
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-  _j.  .'j  fc.L,    /*  ^n     *  —^  m    /*  ^\  "^  ^^    M  *n  /™*  »  i  ti  *  t  (Tl    »'*  ***  »'*■  »'*  *'■*  *'■»  *V  ***  "■'"  **»  ***  ***  ***  V*  *'■*  ***  ***  *'rf  *'*  *•**  »**  ***  *V  *•■'*  *'•  »"'  V'  *'*  »'*  ***  »**  V^  *''  *V  / 

•  x,:  S,<  ;~c   S  ™  A  i  T   C  0  D  F   ^?  Gn^TI   ''" ''"  "'*  ''*  ''" '""   ''*  ' '  '■"  i"?ri>  '<•  ».•  -r  '.'  ->-  '.  •  '■•  V*r  '."f^Vf  -.»  / 

^CORTEX    LOADER    CSSG 


CALL    CLR_SCREEN 
OIL    MCORTSX    LOAD 
CALL    CLR    SCREEN 


***    SCREEM    CONTROL   &    LOG    OM 
***    MESSAGES 


CLD 
PUSH    AX 


;***    INITIALIZATION 


T*  *p  "V 


•  *  *  *    get    LOAD    GLOBAL    INDICATOR    ******** * * * *  * * * * * * * *  *  * * * *  * * / 

CALL    IN_GLORAL  ?***    ASK    IF   GLOBAL    TO    BE    LOADED 

M0V    DX, OFFSET    IN_STRING    ;***    GET    BUFFER    LOCATION 
MOV    CL.READ  »***    CP/M    PARAMETER 

INT    CPM_BDOS_CALL  ?***    GET    INDICATE!; 

;***    GENERATE    KORE    FILE    CONTROL    BLOCK    ********************/ 

GEN_KORE_FCE: 

MOV    3X,10  ?***    MOVE    11    CHARACTERS 

MOV    SI, OFFSET    KORE_NAME    t**f    POINT    TO    KORE    NAME 

MOV    DI.FCR_NA.ME  ;***    POINT    TO    FCB    NAME 

MOV_KORE: 

MOV    AL,[SI+EXl  I***    GST    CHARACTER 

MOV    [DI+BXl.AL  ;***    STORE    CHARACTER 

DEC    3X 

JGE    MOV_KOF.E 

;***    OPEN    KORE. OPS    FILE   ON    DEFAULT    DISK    ******************/ 


OPEN  JCCRE: 

MOV    CL,    OPEN_FILE 

MOV    DX.FCB 

INT    CPM_BDOS_CALL 

CMP    ALf NOT   FOUND 

JNE    PRCCSSS_KCRE 

JMP    NO_FILE 

PRCCESS_KORE: 

MCV    DI,0 

MOV    FCB    CR[DI] ,DI 


;***  CP/M    PARAMETER 

;***  CP/M   PARAMETER 

J***  OPEN    FILE 

;***  FILE    FOUND? 

;***  FILE    FOUND!    CONTINUE 

;***  GO    INDICATE    ERROR 


?***    START    WITH    REC    ZERO 


•  ^  sfi  V*       t*»  ti  n  irn  if  r       ka  t-*  %  a  /*\  t^  \f       *ft  ^*  V*  »'•*  ***  *'*  ***  *'*•  ■*'*■  *'-  *'*  *•*■  *'*  *V  ■***  **"  -'*  »V  •*#  *'*  ***  V*  *'*  *'*  ■*'*  »**  *'*  ***  »'*  »**  V  V*  ***  V*  ■*'*  V*  V*  *■'*    / 
^    t-  «p  3,,        K  JV  S  _ii  K  V    r_       '  W  "  ■    I  (_)  K  Y        *r*  o*  yr  *i*  «v  *>*■*»■  «v  *i*  «v  *tf*  t  "T  *v  -r  -r  i*  is  *.c  *?  -i"  V  *i-  *r  '.*  *i*  n*  •  x  <v  '»■»  v  *S"  *r  ?i^  ?i*  •*•*  7.''  '**   / 


MOV    CL,FREE_ALL_MEM 
INT    CPM_BDOS_CALL 
MOV    CL,ALLOC_MFM_ABS 
MOV    DX, OFFSET    KCRE1_BASE 
INT    CPM_BDOS_C«LL 
CMP    AL,    NOT_FOUND 
JNE    LOAD    MCORTEX 


***    CP/M    PARAMETER 

***    FREE    ALL    MEMORY 

***    CP/M    PARAMETER 

***    CP/M    PARAMETER 

***    ALLOCATE    MEMORY 

***    MEMORY    AVAILABLE? 

***    MEMORY    AVAILABLE!    CONTINUE 
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JMP    NO_ME^OEY_ALLOC  J***    SO    INDICATE    EFPOR 

j  $  *  $    l  0  A  D    M  C  0  R  T  E  X    CODE    AT    3  A  C  0  H    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  / 


LOAD   MCORTEX: 

MOV    DI ,3 

MOV    B?,NUM_KCRE_BLOCKS 

MOVE_XOEE_LOOP: 

MOV    DX.FCB 

MCV    CL,READ_SECUENTIAL 

INT    CPM_BD05_CALL 

MOV   ES,K0RE1_BASE 

MOV    CX,EIG-ETE_E 

MOV    SI  ,CX 

FEP      MOVSB 

DEC    BP 

JNZ    MOVE   KORE    LOO? 


* 


je  »•-  +), 
■v  *r  *p 

*** 

-j-  -J*  V. 

n5  *r  7i" 

o«  %'*  «v 
*r  *r  *r 

1*   T*"  f 


SET    DEST. 


OFF  s 


^  w 


***    SET    BLOCK    COUNTER 


CP/M    PARAMETER 

CP/M   PARAMETER 

READ    IN    123    BYTES 

SET    DESTINATION    SEGMENT 

SET    BYTE    COUNT 

SET    SOURCE   OFFSET 

MOVE    128    BYTES 


DEC    ELOCKS 
***    IE    NOT    DONE 


TO    MOVE 
,    DO    A G AIM 


***    LOAD    INITIALIZATION    MODULE    ************ 


•  »'*  «.V  *.'*  *** 


,  -v  *r  3r  *r  V  *r  "V 


T*  1*  ^  / 


"CV    DI ,INIT_OFFSET 

MOV    DX,FCE 

M0V    CL,READ_SEOUENTIAL 

INT    CPM_BDOS_CALL 

MOV    ES,INIT_BASE 

MCV    CX,EIGETH_K 

MOV    SI  ,CX 

REP    MOVSB 


'!«* 

J!; 

>£V,i 

* 

** 

* 

5|«^ 

* 

* 

O-*  -J-*  *>* 

1*  i*  *r 

si 

>,<  V 

1- 

SET    DEST.    OFFSET 

CP/M    PARAMETER 

CP/M    PARAMETER 

READ    IN    12c    BYTES 

SET    DESTINATION    SEGMEMT 

SET    BYTE    COUNT 

SET    SOURCE   OFFSET 

MOVE    128    BYTES 


J**};:    LOAD    GLC3AL    MEMORY    #*********************************/ 


CMP 

IN    STRING+1,2E 

JZ    INSTALL    INTERRUPT 

MOV 

DI.0 

MOVE    GLOBAL    LOOP: 

MOV 

DX,FCR 

MOV 

CL,READ   SEQUENTIAL 

INT 

C?w    BDOS    CALL 

TEST    AL.AL 

JNZ 

INSTALL    INTEFRUPT 

MOV 

ES.K0RE2    BASF 

MOV 

CX, EIGHTH    K 

MOV 

SI,  CX 

REP 

MOVSB 

JMP 

MOVE   GLOBAL    LOOP 

;***  SHOULD    GLOBAL    BE    LOADED? 

;***  ip    NOT,    SKIP    LOAD 

;***  SET    DEST.    OFFSET 

***  CP/M    PARAMETER 

***  CP/M    PARAMETER 

***  READ    128    BYTES 

***  mo    MORE    DATA? 

***  if    \'Q    MORE,    GO    ON 

***  SET    DESTINATION    SF 

***  SET    BYTE    COUNT 

***  SET    SRC.    OFFSET 

***  MOVE    128    BYTES 

***  if    NOT    DONE,    DO    AGAIN 


ME  NT 


sx  ' 


INITIALIZE    INTERRUPT    VECTOR    ****************= 
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INSTALL_INTERRUPT: 

MOV    ES,INT_VECTOR_ADD 

MOV   DI ,e 

^OV    SI, OFFSET    INTERRUPT    VECTOR    ;  **? 


Z   -?  is  -v 

•  v  V  *v 


SET    DESTINATION    SEGMENT 
SET    DEST.    OFFSET 
SRC.    OFFSET 
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^OV  CX, 2 

REP   MOVS  AX, AX 


;***  2  WORDS  TO  MOVE 

;***  MOVE  TWO  WORDS 


•  s^ ;;; sli  read  J  !\j  ^  FILE  NAME  #*#####**#########*#####»!<# 
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READ_A_NAME : 
CALL  PROCESSCR_NAME 
MOV  DX, OFFSET  IN_STRING 
MOV  CL,READ 

INT  CPM  BDCS  CALL 


;***  MSG-  TO  INPUT  A  FILE  NAME 

;***  rX  <—  BUFFER  LOCATION 

;***  CPM  PARAMETER 

;***  GET  A  FILE  NAME 


j##*    s^t    trc"B    DRIVE    DESIGN 4TION    *#**###*#####**###****##***/ 

CMP  IN_STRING+1,0   ;***  ARE  THERE  MORE  INPUTS? 

JE  EXIT_RCUTINE_E   ;***  IF  NO,  GET  GLOBAL  LOAD  INDICATES 

POP  AX  J***  LAST  LOADED  FILE  WAS  NOT  INITIALIZE 


MOV    DI,0 


**    SET    DESTINATION    INDEX    TO    ZERO 


CMP    IN_STRING+3, COLON    J***    IS    DRIVE    DESIGNATED? 

JE   SET_DRIVE 

MOV    FCB[DIl  ,DI 

MOV  SI, 2  ;***  3RD  POSIT  IN_STRING,  IS  1ST  LETTER 

JS  FORM  FCB 


***  IF  YES,  PUT  DRIVE  IN  FCB 
***  SET  DEFAULT  DRIVE 


SET_DRIVE: 

MOV  AI,IN_STEING+2 

AND  AL,5FH 

SUB  AL,40E 

MOV  FCB[DI]  ,  AL 

AND  AL,0F0H 

TEST  AL.AL 

JNZ  INPUT_EREO~_B 

MOV  SI, 4 


***  GET  DRIVE  LETTER 

***  CONVERT  TO  UPPER  CASE 

***  CONVERT  TO  A  BINARY  NUMBER 

***  SET  DRIVE 

***  LIMIT  LINE  DRIVE  TO  A  THROUGH  0 


;***  5TH  POSIT  IN_STRING  IS  1ST  LETTER 
;###  INITIALIZE  FILE  CONTROL  BLOCK  *****#****#********#***/ 

;***  FILL  FCB  NAME  WITH  SPACES 


FORM    FCB: 

MOV    BX.0AH 

•   ?r  V  *r 

MOV    AL, SPACE 

•   nC5£-(, 

FILL    SPACES  : 

MOV    FCB    NAME  [EX] 

,AL 

.    u-  •»,  V 

"    Or*  *i*  Ji'* 

DEC    BX 

#    «JU  ,»-  -A. 

»t-  "1-  »l» 

JGE    FILL    SPACES 

•    ^  iJ-C  3,C 

MOV    FCB_CR[DI] ,DI 
MOV    FCB_EXTENT[DI] ,DI 


;***   NEW    FILE    CURRENT    RECORD    IS    ZERO 
;***    NEW    FILE    CURRENT    EXTENT    IS    ZER<? 


;***  INSTALL  FILE  CONTROL  BLOCK  NAME  ************#********/ 

NAME_LOOP: 

MOV    AL.IN    STRING  [SI]        ?***    GET    A    CHARACTER 
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CMP  AL, PERIOD 

JNE  FCB_CONT_l 

MOV  DI  ,8 

JMP  FCB_C0NT_2 

FC3_C0NT_1 : 

CALL  VALID_INPUT 

TEST  AX,  AX 

JE  INPUT_ERROR_B 

MOV  FCB_N*MF[DI]  ,AL 

MOV  AX.SI 

CMP  IN_3TRING+1, AL 

JB  OPEN_PROCESSOR 

INC  DI 

FCB_C0NT_2: 

INC  SI 

JMP  NAME  LOOP 


***  START  TYPE? 

***  IF  NO,  CONTINUE 

***  IF  YES,  ADJUST  DESTINATION 

***  AND  CONTINUE 

***  CHECK  FOR  LETTEF  OR  NUMBER 

■j^  .*#  *■* 

'r  *r>  *i* 

***  MOVE  CHARACTER  INTO  FOB 

***  IS  THIS  LAST  CHARACTER? 

*r  *i-  *i* 

***  IF  y^s,  LOAD  THE  FILE 

***  IF  NO,  ADJUST  FOR  NEXT  LETTER 

;***  AND  GO  AGAIN 

«  »f*  ->-  *'* 

r  *.*•  -,- ',- 


FXIT_ROUTINF    B: 
JMP    EXIT_ROUTINE 
INPUT_ERRCR_B: 
JMPF    INPUT    FFROF 


;***  BRIDGE  TO  EXIT  ROUTINE 
;***  BRIDGE  TO  INPUT  ERROR 


OPEN  THE  PROCESSOR  FILE 


:  :>!c  ix : 


.  »»*  J*  v»-  u«  »** 


«,'-  J*  »»,  a,  *•,  „t.  / 
T  t  'i-»  *r  '.-  i*  / 


CPEN_PROCESSOR: 

MOV  DX,FCB 

MOV  CL,OPEN_FILE 

INT  CPM_BDOS_CALL 

CMP  AL,  NOT_FOUND 

JNE  LOAD_PROCESSCR 

JMP  NO_IN?UT_FILE 

LOAD_PROCESSOR: 

MOV  DX.FCB 

MOV  CL.PROGBAM  LOAD 

INT  CPM_BDOS_CALL 

PUSH    AX 

JMP    READ    A    NAME 


h*  v  ^ 

j-  *•*  %»- 
•v  *i*  »** 

5jc  n*  Sge 

»',  *•-  *•' 
*r  *i*  'i* 


CP/M  PARAMETER 
CP/M  PARAMETER 
OPEN  THE  FILE 
WAS  FILE  ON  DISK 
IF  YES,  GO  LOAD  THE 
IF  NO,  SIGNAL  ERROR 


ILE 


***  CP/M  PARAMETER 
***  CP/M  PARAMETER 
***  LOAD  THE  FILE 
***  SAVE  DATA  SEGMENT 
***  GET  NEXT  PROCESSOR 


;***  SET  UP  THE  INITIALIZATION  STACK  ******* 


/ 


SfE  ?£  *»< 

##* 
### 

5,S  *,'  »,£ 


CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  *********/ 
This  code  is  highly  dependent  upon  Input  of  PL/I 
CMD  file  with  CS  header  first  and  data  header 
second.   This  is  the  normal  situation  and  should 
cause  no  difficulty.   Also  this  code  is  highly 
dependent  upon  the  location  of  the  initialization 
module  stack  and  the  location  of  the  DS  and  IP 
values  within  that  stack.   Changes  in  stack 
location  or  organization  should  "be  reflected  here 


/ 

/ 

/ 

#  V  ¥  / 

*  *  *  / 

#  *  >r  / 
*•*  *i*  «u  y 
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C»UTION    ***    CAUTION    ***    CAUTION    ** 


C  A  U  T 1 0 :  i    * *  * *  * *  *  *  *  / 


EXIT_ROUTINE: 

PQT)  £X 

MOV    ES,I\"IT_DS_ 

"OV    PX,IN!T_DS_OFFSFT 

MOV    ES:  [3X]  ,AX 


MO  7 

MCV 
MOV 
MOV 

INT 
MOV 
MOV 
INT 


SEG 


!TT 


SIT 


DX.C 
EX.INIT   I? 

ES:  [3X]  ,DX 
CL,SET_DMA_BASE 

TX,AX 

C?M_3DCS_CALL 
CL,SET_DMA_OFFSIT 
DX .EIGHTH   K 

C?M    3D0S    CALL 


***    RECOVER    TATA    SEGMENT 
***    POINT    TO    IN  IT    STACK 
***    POINT    TO    DS    ON    STACK 
***    INSTALL    MEW    I  NIT    IS 
***    SIT    NEW    IP    VALUE 
***    POINT    TO    IP    ON    ST«CK 
***    INSTALL    ME*    I  NIT    I? 
***    CP/M    P«PAMETEF 
***    SIT   BASE   PAGE 
***    SET    DMA    BASE 
***    CP/M    PARAMETEE 
*#*    SIT   OFFSET 
***    SIT    DMA    OFISIT 


j##*    TR^NS^IR    CONTROL    TO    MCORTEX    ****#**#*****************/ 


vOV    SP,KO?.E_S? 

^CV    5P,S? 

MOV    SSfKCRI_S5 

MOV    AX, IS 

MOV   IS,  AX 

MOV    DS,KORS_DS 

JMPF    ESrKORE 


;***  KORE    STACK    POINTE1 

;***  KORE    STACK    5AS2 

;***  KOI.I    STACK    SEGMENT 

;***  GIT    TATA    SEGMENT 

J*5?*  POINT    IS    TO    DS 

;***  KORE   DATA    SEGMENT 

?***  JUMP    TO    MCORTEX 


;***    VALID    CHARACTEF    FOR    FILE    NAVE    CHECK   *****************/ 


VALID    INPUT: 

CMP    AL, ASCII 

0 

JP    NOT    VALID" 

CMP    AL, ASCII 

.9 

J3E    IS    VALID" 

AND    AL.57H 

CMP    AL, ASCII 

A 

J3    NOT    VALID" 

CMP    AL, ASCII 

I 

J3E    IS    VALID" 

NOT    VALID: 

MOV    AX,0 

IS    VALID: 

RET 

***    IS    THE    CHARACTER    A    NUMBIF 


*r  *r  *r 

***    CONVERT    CHARACTER    TO    UPPER 

***    IS    THE    CHARACTER    A    LETT  I.-. 
#** 

T  n*  •"»" 


;*#*    INDICATE   IAD    CHARACTiy 


CAS7 


;***    CH  "FACTE?    OK 


«    *t*  *»»  *^#  A    T^  /"\  T")   ffl  UPfP     1AT7P  »'*  V"  ***  *■**  *'"  "J*  *V  ***  »'*  J*  "■*"  ■**  *■'■'  ***  *'*  V»  ***  •**  *'-  ^**  ^*  ***  ***  **-   ■**  ***  l**  »'-  ***  »*•  ***  »1-  ***  *'*  * 

^  , .  ,  , .   a  WMWT   pOrfSSfl'-^S   »t  »^ir  ^rn*  *r  *v  *»~  '.*  *r  -»■•  *"*  *»*  *■*  *»*  *r  -^  *<*  t*  *.-  «ir  ***  *i-  *r  *r  *p  *.*  *i*  -•*  *r  *r  -r-  *.*  • 
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NO_FILE: 

CALL    CLR_SCREEN 

MOV    DX, OFFSET    NO_FILE_MS 

JMP    MSG    OUTPUT 


;***    pTR    TO    MSG 

I***    PUT    MSG 


NO    MEMORY    ALLOC: 
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CALL    CLR_SCRFZN 

MOV    LX, OFFSET    NC_MEMORY_MSG 

^SG_OUT?UT: 

MOV    CL,PRINT_STRING 

INT    C?M_BDOS_CaLL 

CALL    CLR   SCREEN 

yCV    CL,SYSTEM_RESET 

MOV    DL,2 

INT    CPW    BLOS    CALL 


;***    FTP.    TO    MS 5 


;***  CP/M    PARAMETER 

;***  SEND    CE.AR    TO    CONSOLE 

!***  CP/M    PARAMETER 

;***  RELEASE    MEMORY 

J***  EXIT    TO    CP/M 


•  %•*■  »'*  v*     "■•  f\   T*-   T1  X^  Ik  I    f\  f\  k  t  1^  T*  ^\   X     *■**  V-  *'»  Vf  *^  ***  *•—  *'*  *'*  *•'"  *■'*  *"*  ■*'»  ■***  V*  ^ff   *V  ***  »*-  *'■*  **?  *V  *'*  *'*  *■*"  ***  *'*  s'"'  *'*  "^  "■'■*  *'-  **■*  ■*-*  »"■»  *^*  *■'"  »'r   / 

r  *«- •** v     sT  u  m  m     C  U M  I  _h  U Ij     "•*     *•*    *r *"* *v ™ '*" *r ''* *r n"  "r **" *l*        ***        *** *** *•* nr' *r *r"1 ' ^ *** "** *'* "*"     / 


CLR 

SCREEN: 

MOV 

~CL, CONSOLE   OUTPUT 

■  »'»  V'  *J* 
*(.  7i-  *»■• 

MCV 

DL.CR 

.  J,  »•*  »V 

•   ,,-  -t~  ,r 

INT 

CP^    FLOS    CALL 

*  J.  -  -  A 

•  ?,-  'i>  *,- 

MOV 

DI.0CE 

•  ifi  ?,i  \c 

LINE    FEED: 

MCV 

DL,LF 

*  $;«  >^  # 

MOV 

CL, CONSOLE    OUTPUT 

•  5^5|fi5^ 

INT 

CPM    BDOS    CALL 

J  W¥ 

DEC 

LI 

.  „».  »'-  „•- 

T  *»*  *r  n* 

JNI 

LINE_FEED 

J  ##*« 

RET 

;*#*    ISSUE    CARRIAGE    RETURN 


;***    ISSUE    12    LINE    FEEDS 


SEND_MSG: 

MCV    CL, PRINT    STRING 

INT    CPM_BDOS_CALl 

RET 


;***    CP/M   PARAMETER 

;***    PRINT    A    STRING    TO    CONSOLS! 


?  #  3fi*  5?   M  Q  W    A  p  Q  3  'p   M  "7  2  S  *  J  ^"  S        ****  t6  *»"*  *r  "i*  o*  -t=  X*  *IC  *r  ^r  V  *i*  *.*  *r  *r  V  *i~  X*  XJ  *&  *i*  X;  V  X;  V  *r  ^J*  -1-  5*i*  *r  / 

MCORTEX_LOAD: 

MOV    DX, OFFSET    START_MSG 

CALL    SE\'D_MSG 

RET 

PROCESSOR   NAME: 

MOV    DX, OFFSET    P_NAMF_MSG 

CALL    SEND_MSG 

RET 

IN_GLOBAL: 

MOV    DX, OFFSET    GLOBAL    0    MSG 


CALL    SEND_MSG 
?ET 


IN?UT_ERROR: 

CALL    CLR_SCREEN 

MOV    DX, OFFSET    FILE_FOEM_ErR_MS 

JMP    EXIT    ERR 
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NO_IN?UT_FILE: 
CALL  CLR_SCRE2N 
rOV  DX, OFFSET  MO 
EXIT_ERR: 
CALL  SEML_MSCr 
CALL  CLR_SCRFEN 
JMP  READ  A  N/Mv 


IN  FILE  PSS 


NT 
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APPENDIX  D 
GATE  MODULE  CODE 

Two  files  are  contained  here.  The  first  is  PL/I  cole, 
GATEWAY,  which  must  he  %INCLUDE'd  with  every  user  process 
requiring  access  to  MCORTEX.  The  second  is  A86  code  which 
provides  an  interface  between  the  GATEWAY  and  the  MCORTEX 
supervisor.  The  object  code  obtained  from  assembly  of  this 
file  must  te  linked  with  all  user  processes  to  provide 
"gateway"  access  to  MCORTEX  functions.  Two  lines  of  coie 
are  conditionally  assembled  to  produce  either  GATEMOD  or 
G£TETF.ACE.   The  conditional  variable  is  called  GATEMCD. 
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/wXf    -J* 

/## 

/  i«  'r 

/»».  -'- 

/#* 
/** 

/  #  # ; 


J1^   o  •  \'r  -1'  »'-  s'>  »''   v'»   >'-  V'  "■''  ■■'*  *"»  **     ■*■'■*  ■*■' *   "-'*  V*  v  '■''  "^-'   V'   "•'''  »'*  V'  V'  V'  *'■*  *■*■*  »*•*  ■**-*  ■*''  "•'"'   '-''  "■''  V'  *•'*   "^   -J-  ^V  ***   ■-''  ■»'-   -''  *  •  *■  ■*  *•*'  --1*  -  '   *' *  "•''  •■''  — '*   »'• 
,*    *l»  *(■•  *,»  *(«  ^(^  *,-    #|»   »t»  *(>•    »]■»  «»|'>  *t*  »f»  *|»  *,»  *|^  #,»  *|«    #!■•  *j»    *)»   #,»  »(»  *|-»   *|»  *i»  *|">   *j*   *t»  *,»  *,*  *|»   •>[*  *|»  *j»  rf*  *f*   »,">  *|V  »|»    r/+  »,-.   rf%  *,»   ••,*   *,*  *jk  *^»   *(»  .*,«   A*  ^[»  **,' 


GATEWAY 


FILE  GATEWAY  .PLI 


W.R.  ROWS   4  MAR  84 


This  section  of  cede  is  given  as  a  PLI  file  to  be 
%INCLUDE'd  with  MCORTEX  user  urograms.   ENTRY 
declarations  are  -nade  for  all  available  MCORTEX 
functions  and  for  ADE23IT16,  a  utility  function 
allowing  unsigned  addition  of  16  bit  numbers. 


•J*    %trf    *1^    x*s    ^i  j    ^.lrf    »!-.     v'x    ^1>     -.»>  0> 


'  *v  *»■"  *r* 


•  V*  ***»'*  -•*»•*  *•*  »*  -  *''  »'*  »•*  »•*  -'»  «•*  »'<*  » - 

■     >(»      *(^   »|*      *-j*     *-»     «|%    #A     ^|*     *&~       *      ^     ^|«     ^  ^     ^.%      ^k  -t- 


».       »'-     -J.    *l*      , 


,€  5,C  3,£  5,C  I 


*'*  »*»  »*»  »*»  »■*  ***  *'*  V^   fc1 
»,^  *l*  #1*  *,*   *,-•  ••(*  *(»  *l*  «l 


**/ 

'i^  'C    / 

••*  »••    / 

*«/ 

**/ 

...  >;.  / 

/ 


»■-  »■-■  »•- 


DECLARE 

advance  ENTRY  (EIT  (3) ) , 

/*  advance  (event_count_id)  */ 

await  ENTRY  (PIT  (8),  PIT  (16)), 

/*  await  (event_co unt_id ,  awai ted_val ie  )    SV 

create_evc  ENTRY  (PIT  (8^), 

/*  create_evc  ( event _coun t_id )  */ 

create_Droc  ENTRY  (PIT  (fc),  EIT  (8), 

EIT  ,16),  EIT  (16;,  BIT  (16), 

BIT  (15)  ,  BIT  (16),  BIT  (16)) 

/*   create_proc    (  processor_id  ,    processor_prionty , 

/-;:  s  tack_pointer_hishes  t ,  stack_se^, 

/:;:  code_se2;,  data_se,e,  extra_sea;) 

create_seq  ENTRY  (BIT  (8)), 

/*  create_sea  (sequence_id )  */ 

preempt  ENTRY  (BIT  (8)), 

/*  preemDt  (i)rocessor_id )  ':V 

read  ENTRY  (BIT  (9))  RETURNS  (BIT  (16)), 
/*  read  (even t_c oun t_id )  */ 
/*  RETURNS  current_event_count  */ 

ticket  ENTRY  (BIT  (8))  RETURNS  (BIT  (16)), 
/*  ticket  ( seauence_id )  */ 
/*  RETURNS  unique_ticket_value  */ 

add2bitl6  ENTRY  (BIT(16),  EIT(16))  RETURNS  (BIT 
/*  add2bitl6  (  a_16bit_#,  another  16^)it_#)  */ 
/*  RETURNS  a  16bit  #  +  another  16bit  *     */ 


*/ 

io  */ 
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(16)); 
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,*r    *'»  »•*  *t»  »V  *•*  ***  »'"  *'■*  »•*  V*  V*  V*  V"*  »v*  *l*  *•*  »'*  V*  *V  *•' •    *}**}"    *'*  »'*  V*  »'. 

■t%  *,*  *f»  #p  *,*  ».»  *,*  #,»  S,»  ?4»  *r*  *,■»  ^*  >j»  ^t%  *(»  »|-*  *»|»  *,»  *j^  »|»  *-|»  *(»  *y»  *j^  *,»  *(■ 

*  GATEMOD  /  GATETRC 


h'«  V'  »'*  *'*  V*  »'*  »'**»*  »<*  y*  • 

*|»  ^p  *(»  »|"»  *(^  *y»  ^]»  ^(»  *,»  >,»  - 

File   GATEM/T.a8i 


*  «y  »■*  ***  ->.■  »•»  y*  v»  *<#  »'-  -.  -  *»»  u  -  *■*  *■»  %■-  -■-  »>»  *o  «v  »**  y 
,i  *("  #,»  *y»  *|»  «y«  *(*  *,*  *f*  ^,»  ?,^  «-,»  ?,» *<-  ••,»  *,«.  »,»  »,*  *■,-.  *,«.  »,»  / 

:     Rowe  12  Feb  94  */ 
*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*  / 


* 


$ 


This  module  is 
with  his  initi 
user  services 
here .  I n  this 
actual  GA.TEKEE 
are  contained 
control  the  ou 
on  the  value  c 


given  to  t 
al  and  p r o c 
available  f 

way  the  us 
PER  service 
in  rondi  t  io 
tput  to  be 
f  GATEMOD  a 


he  user  in 
ess  module 
rom  the  OS 
er  need  no 
s  codes . 
nal  assemb 
GATEMCD  or 
t  the  code 


ob.i  forn  to  1  i n '& 
s  .   Any  changes  to 

must  be  reflected 
t  be  concerned  with 
Two  lines  of  code 
ly  statements  and 

GATETRC  depending 

start  . 


*/ 

•*/ 

*/ 

*/ 

*/ 
.#/ 

*  / 

*/ 

■*/ 

•.'  / 

*/ 
*/ 


*  This 

*  betw 

*  (  wri 


module  re 
een  MCOHTE 
tten  in  PL 


conciles  pa 
X  'writ  ten 
/I). 


rameter  pa 
in  PL/M)  a 


ssing  anomalies 
nd  user  urograms 


*  All 

*  OS. 


calls  are 
The  addre 


made  to  the 
ss  of  the  G 


G«TEKFE?E 
ATEKEEPER 


R  in  LEVEL2  of  the 
must  be  given  below 


*  The 

*  It's 

*  16  b 


ADD2BIT16 

purpose  i 
it  numbers 


function  do 
s  to  allow 
from  PL/I 


es  not  mak 
the  additi 
programs  . 


e  calls  to  MCORTEX 
on  of  two  unsigned 


%0  *'*  %**  *JU  %U   ^  ^  fc1  - 

*»-  *v  i»  1*  *r  *r  *i* 


■  *</  »'*  v'-   o«  »'*  V*  *■  '  **■*  V*  «■'-  » l#  V*  V'  —'*    »'■*  »'»  "-''  «■'•■  *'*■  "■'-  *'■*  Vv  ■*•  -  •.'»  *'■»  o*   •,'  -  «,"  ">'»  %*'  '•'■• 

*  +r>  *\*  ^-  *)■«.  '|»  ^,*  i*  *]■*  *|-»  *;»  *|»  ?,~  ^r*  *i«  *(*  #(>»  *tt»  rj«  *|»  »,»  *,■*  ^(*  *(»  *|«  ^f»  #f«  *y»  ^f«  *|*  *p  *ji 


«.V*  *d    «.'*  »0   »•*  »'*  *JL>  »'*  »<^  ^'^   *•#  v1*  »**  *V 


JL>   *<*  »•*  *'*   »•#  »1*  **^   *V 

•*■  *v  *»■•  *t*  n-  n*  'r  *r 


ESEG 


GATF^OD    EOU    ? 


;***  SET  TO  ZE?0  FOR  GATETRC 
;***  SET  TO  ONE  FOR  GATE MOD 


PUBLIC 

ADVANCE 

•  ai'  s|:^J 

PUBLIC 

AWAIT 

•  ;;;  »j!  j^ 

PUBLIC 

CREATE  FVC 

;  #** 

PUBLIC 

CREATE  PROC 

PUBLIC 

CREATE  SEO 

PUBLIC 

PREEMPT 

PUBLIC 

READ 

PUBLIC 

TICKET 

PUBLIC 

ADD2BIT16 

THESE  DECLARATIONS  MAKE  THE 
GATEKEEPER  FUNCTIONS  VISIBLE 
TO  EXTERNAL  PROCESSES 


AWAIT_IND  EOU  0 
ADVANCZ_INr  EQU  1 
CREATE_EVC_IND  ECU 
CREATE_SEO_IND  EOU 
TICKET_IND  EOU  4 
RSAD_IND  EOU  5 
CREATE  PROC_IND  EOJ 
PRFEMPT  IND  ECU  7 


;***  THESE  ARE  THE  IDENTIFICATION 

;#**  CODES  RECOGNIZED  5Y  THE 

;#**  GATEKEEPER  IN  LEVEL  II  0^ 

:  MCORTEX 


;" 


IF  GATEMOD 
GATEKEEPER 
GATEKEEPE?' 
ELSE 


IP  DW  002AH 
CS  DW  eBEBH 
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GATEKEEPER_IP  DW  3062H         ;#*##  1  ###*  < 

GATEKEEPER~CS  DW  034AE         ; ####  2  #**#  < 

ENDIF 

GATEKEEPER  ECU  DWORD  PT?.  G«TEKEEPER_I? 

AWAIT  ***  AWAIT  ***  AWAIT  *#*  AWAIT  ***  AWAIT  ********/ 


CSEG 


AWAIT: 

PUSH  ES 

MCV  SIf2[3X] 

MOV  BX,  [3X] 

MOV    AL,AWAIT_IND 

PUSH    AX 

MOV    AL,  [3X] 

PUSH    AX 

MOV    AX,  [SI] 

PUSH    AX 

PUSH    AX 

PUSH    AX 

CALLF    GATEKEEPER 

POP    ES 

RET 


?***  ADVANCE  ***  ADVANCE. 


iSI  <—  PNT  TO  COUNT  AWAITED 
J3X  < —  PNT  TO  NAME  OF  EVENT 

;N  <—  A*  AIT  INDICATOR 

JBYT  <—  NAME  OF  EVENT 
JAX  <—  COUNT  AWAITED 
JWOF.DS  < —  COUNT  AWAITED 
;?TR_SEG  <~  UNUSED  WORD 
;?TR  OFFSET  < — UNUSED  WORD 


ADVANCE  ***  ADVaNCE  v*********/ 


ADVA 
PUSH 

MCV 

^OV 

PUSH 

MCV 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

POP 

RET 


NCE: 

ES 
BX,  [BX] 
AL, ADVANCE_IND 

AX 
AL, [IX] 

AX 

AX 

AX 

AX 
F  GATEKEEPER 
ES 


JBX  < —  PTR  TC  NAME  OF  EVENT 
5N  < —  ADVANCE  INDICATER 

JBYT  <--  NAME  CF  EVENT 
JWORDS  < —  UNUSED  WORD 
;?TR_SEG  <—  UNUSED  WORD 
;?TR  CFFSET  <— UNUSED  WORD 


;*-■'-*    CREATE   EVC    ***    CREATE_EVC    ***    CPEATE_EVC    ******##*###*/ 

CREATE  EVC: 

PUSH  ES 

MOV    3X,[3X]  ;BX    <—   PTR    TO    NAME    OF    EVENT 

MOV  AL, CREATE  EVC_IND 

PUSH    AX  JN    <—    CPEATE_EVC    INDICATOR 

MOV  AL,  [BX] 

PUSH  A7  JBYT  < —  NAME  OF  EVENT 

PUSH  AX  JWORDS  < —  UNUSED  WCRD 

PUSH  AX  ;PTF.  SEG  <—  UNUSED  WORD 
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?  u  s  r;r  ax 

CALLF    GATEEIZPE: 
POP   ES 

RET 


;?TR    OFFSET 


<— UNUSED    WORD 


>***    CFEfiTF    SFO    ***    CREATE    SEC 


CREATE    SEO    ****** 


hU  **'  *■-  •-'"  ■» '-"  *■-  «' 
>t»  *j»  #,»  *^»  >y*  •" 
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CREATE_SEO: 

PUSH    ES 

MOV    ?X, [BX] 

MOV  AL .CREATE  SEC  IND 

PUSH  AX 

MOV  AL,  [BX] 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  AX 

CALLF  GATFKFEPEh 

POP  ES 


5BX  < —  PTP.  TO  NAME  OF  SEO 

iN  <~  CP.EAT-E_.SEQ  INDICATED 

JEYT  <--  NAME  OF  SEC 
; WORDS  < —  UNUSED  WORD 
;PTR_SEG  <—  UNUSED  WORD 
JPTR  OFFSET  < — UNUSED  WORD 


;#** 

TICKET  * 

#*  t 

TICK 

ET: 

PUSH 

ES 

PUSH 

ES 

MOV 

CX.S? 

N"CV 

3Xf [BX] 

MOV 

AL, TICKET 

_IMD 

PUSH 

AX 

MOV 

AL,  [BXl 

PUSH 

AX 

PUSH 

AX 

PUSH 

SS 

PUSH 

ex 

CALL 

F  GATEKFF 

PER 

POP 

rX 

POP 

ES 

TICKET  ***  TICKET  ***  TICKET  ***  TICKET  ***/ 


;ticket  number  dummy  storage 
; pointer  to  ticket  number 
i.bx  <—   ptr  to  ticket  name 


JN  <—  TICKET  INDICATER 

5BYT  <—  TICKET  NAME 

J  WORDS  < —  UNUSED  WORD 

;PTR_SEG  <—  TICKET  NUMBER  S  EG 

;PTR  OFFSET  < —  TICKET  NUMBER  POINTER 


{RETRIEVE  TICKET  NUMBER 


RET 


;***  rv/^7)  ***  RFAD  ***  RVA.D  ***  READ  ***  READ  :;";'*  READ  ****/ 


READ: 
PUSH  ES 
PUSH  ES 
MCV  CX,S? 
MOV  BX, [BXl 

MOV  AL.READ  IND 

PUSH    AX 
MOV    AL,[BXl 
PUSH    AX 
PUSH    AX 


JEV^NT  COUNT  DUMMY  STORAGE 
J  POINTER  TO  EVENT  COUNT 
JBX  < —  PTR  TO  EVENT  NAME 

JN  <--  READ  INDICATER 

JBYT  <—  EVENT  NAME 
JBYT  <--  UNUSED  WORD 
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PUSH  3S 

PUSH  CX 

CALLF  GATEKEEPER 

POP  BX 

POP  IS 

RET 


;pt?_seg  <- 
ipth  offset 


EVENT  COUNT  SEGMENT 

COUNT  POINTER 


J  ir  '■'-  V 


CPE  A 
PUSH 

mov 

PUSH 

MOV 

PUSH 

mov 

PUSH 

!*OV 

PUSH 

MOV 

PUSH 

MOV 

PUSH 

MOV 

MOV 

MOV 

PUSH 

VQV 

MOV 

FUSE 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

ADD 

POP 


CREATE  ??CC  * 


TE  PKOC 


re; 


SI.  14  [BXl 

WORD  PTR 
SI , 12 [BXl 

WO-D  PTP; 
SI,  10  [BX] 

WORD    PTR 
SI,    8[?Xl 

WORD    PTR 
SI,    6[BX] 

WORD    PTR 
SI,     4[BX] 

WCRD    PTR 
SI,  2  [BXl 
AH,  [SI] 
SI,  [FX] 
AL,  [SI] 

AX 
CX.SP 
AL, CREATE 

AX 

AX 

AX 

SS 

CX 
F   GATEKEEPER 
SP,14 
ES 


[SI] 
[SIl 
[SI] 
[SI] 
[SI] 
[SI] 


JRETRIEV: 


CREATE  PROC 


--  EVENT 
EVENT  COUNT 


*  CPEATF  PROC 


'.;  '.-  *.c  *r  -.•  *i*  / 


SI  <- 

STACK 
SI  <- 
STACK 
SI  <- 
STACK 
SI  <- 
STACK 
SI  <- 
STACK 
SI  <- 
STACK 

si  <- 

GET  P 

SI  <- 

GET  P 
STACK 

POINT 


-  PTR  TO  PROCESS  ES 
PFOCESS  ES 

-  PTR  TO  PROCESS  DS 
PFOCESS  DS 

-  PTR  TO  PROCESS  CS 
PROCESS  CS 

-  PTF.  TO  PROCESS  IP 
PROCESS  I? 

-  PTR  TO  PROCESS  SS 
PROCESS  SS 

-  PTR  TO  PROCESS  SP 
PRCCESS  SP 

-  PTR  TO  PROCESS  PRIORITY 
ROCESS  PRIORITY 

-  PTR  TO  PROCESS  ID 
ROCESS  ID 

PROCESS  PRIORITY  AND  ID 
ER  TO  DATA 


PROC  IND 


N  < —  CREATE  PROCESS  IND 

EYT  <—  UNUSED  WORD 

WORDS  <—  UNUSED  WORD 

PBOC  PTP  SEGMENT  < —  STACK  SEG 

PROC  PTR  OFFSET  < —  DATA  POINTER 


;remove  stacked  data 


;  #**  ppEEMPT  ***  PREEMPT  ***  PREEMPT  ***  PREEMPT  'i'**  ***#***/ 


PREEMPT: 

PUSH  ES 

MOV  BX, [BX] 

MOV  AL,PREEM?T_IND 

PUSH  AX 

MOV  AL,[BX] 

PUSH  AX 

PUSH  AX 

PUSH  AX 

PUSH  AX 


JBX  < —  PTR  TO  NAME  OF  PRCCESS 
JN  <--  PREEMPT  INDICATER 

JBYTE  <--  PREEMPT  PROCESS  NAME 
;WORDS  < —  UNUSED  WORD 
;?TR_SEG  <--  UNUSED  WORD 
;PTR  OFFSET  < —  UNUSED  WORD 
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CALL?   GATEKEEPER 

POP    ES 

RET 

;***    ADD23IT16    #** 

ADD2EIT16 

ADD2BIT16: 

MOV    SI , [BX] 

;si  <- 

MOV    BX,2[BX] 

;bx  <- 

MOV    BX,  [BX] 

;bx  <- 

ADD    BX,  [31] 

;bx  <- 

ADD2EIT16 


ADD2BIT16  **/ 


PTR  TO  BIT(16)#1 

?TE  TO  3IT( 16)#2 

PIT(16)#2 

BIT(16)#1  +  3IT(15)#2 


RET 


END 
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APPENDIX  5 
5IM0MSTRATICN  PROGRAM 

The  files  presented  here  are  a  series  of  procedures  that 
can  te  compiled  separately  and  linked  in  accordance  with 
LINK86  input  option  files  in  APPENDIX  F.  The  results  vill 
be  demonstration  processes  Dl  and  D2 ,  or  D1TRC  and  LST'C 
depending  on  the  option  files  selected. 
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'     ».**  »•»    *•*    «.'*    »'#    *•»    *'*    *•*    O*    »**    »*■    *■»     O*  «■<     ..'»    **»     »•*    ••** 
-      ^,"      *.»      *|**      *|**     *,-      *|*    ^^     *|*     '(*     >(   -      *j*     ^j»      *A    *(^      AV      *.»     ^S     ^(* 

5v  *'*  s'<»  »**  »'*  V*  %'*  »•■»  v*  *'*  »*<•  V*  V*  ***  V'  V*  *'*  *1-  \4*  ***  *'*  *'*  V*  *'*  V*  *'■'  *'*  a'* 
j»  »,>  ?,*  »^    »,»  *p  »(»  *(»  5,»  *,»  ?,*  *|*  Jp  *p  *,■  *,*■  *,»•  *!■•  *j^  •»,■»  *,■»  *p  ?|»  *p  2,^  *,%  *p  ^,1 


•  »*.  *•*  »•*  »•*  »'»  *'*  »'■*  ->«•  »'*  %'*  »'»  <i'*  «'j  ***  »'*  **«»  »'»  »'*  »'*  *■»  »'-  »'*  v  ■*'•*  *>'*  *'*  *J+  *•'*  *''  »'-  *'* 

■  *,-  *t*   >,»   •'i*  #,«   *■[»  *,^   •■,*  *,»   *|»  *(»   »!■•    *,■»  *j»  *f»    ',*   ^j-    ^,-»  »-|*    *(•    *,  ■  *  ^  ■*,■»    i*,"»  *,*  »4*   *t»   »,»   *|»  »^»   ■»,- 

.   **#  O,   %**   »  i,  s'*   *'»  *'*   »'»  »'■»   ^V  »'*  *'*    ■»**  »'*  »J*    **»  ***     »'*  »"*  *>**  »'*   «i*  V*    »*»  »<*  »J*  «J*  »**  *•*  »'*  »'«■ 

■  *|-    J,-    *,■-    ^,"»   #|"«     *(H  *j^    *,"•   ^j*    >|*    rfj1*  *|*    ^|%  #j*  *j^    *f*   *,-»    *j-»   r,-~   *JS    •'^    *•,»  *(^     *,«   ^T*  'I"    *!*■    'i*    «■,»  '|»  *|* 

;,;  i,t  *,c 


***  DIM  IT. PL  I    code 

*#*  This  code  creates  the  91  process  for  execution  und 
***  MCORTTCX.  Osin^  the  MC0RT5X  loader,  the  last  yroce 
***  to  be  loaded  must  contain  the  initialization  proce 


*•«•  *'*  -»-■  *i*  v  »'-  «••''  *V  *•*  »^«  V*  »'-  *r»  *•*  ***  *•*  *■*  **^  »'*  ^'  V*  ^*  *•*  *■**  »•*  *'*■  *^-  *V  V-  V*  *■**  *'*  V-*  V*  ***  "»*'*  •**  **f  V*  °*  Vr  *'*  **' 
,,-.  »,-  *■,«  #^%  ^,*  »,»  »p  »|t  »,•»  *p  ^  ^-.  »,■»  .,-.  *^«  «■,»  #,.  *(*.  *,*.  *,-  J,-  ^*  *^-»  •(*  *,»  *,*■  *i-  *,^  ^,"  ^-  ^^  *t*  *!■•  ^,-  »!•»  *y*  *,-  *^  *i»  *■,»  *i»  *|»  *»- 

^u  «kr  o-  **,.  ,.!.>»-•  yc  J*  *•*  *'■»!*-'.  •»-  *'*  *»>  v-  **-%'*•»-  J*  V#  J*  *>--'>  J*  J-  *>-  u-  J-  v»  »'-  v*  »*»  *»-  *f^*»*  »•*  V-  ***  •»-  »«-  V*  V- 
-i  *r  ** >  'r  i ■  *»■*  *Sr   n*  *r  *f  *r  n*  *i-  -.•*.■  n-  ^-  f  *i*  *r  *?■  *»»  *F*v  *r  *f  '»'•  i'  n*  ».  n-  n^  *»'  *i-  t-  n-  ^i*  V  '**  *r  •>"  *.*  *i* 

i  a  i  t  : 

PROCEDURE  OPTIONS  (MAIN)  R2TURNSO; 
%INCL'JDE  ' gateway. pli"; 

pesin; 

CA.LL  create_uroc  ('?1'34,  'fd'B4, 

'"Sdb'34,  '*??a'B4, 
'^439 'P4,  '070a'B4, 
/-CALL  create_Droc  (PROCESSED,  PROCESS 
/*  S  P        s  s 

/*  CS         DS 

CA.LL  await  ('fe'B4,  '0l'P4)J 
/*CALL  avatt  (   EVC  ,   COUNT);  */ 

end; 
end; 


*  »•*  ***  k'»  ***  »** 


V  5,:  i*  V  *.'  \ 


»,*  #(■»  *l»  * 


_  «.'-  *•-  J, 

ss    *** 
ss .*** 


-'»    I1*   <,''    - '  -   -J-   -'- 

nr  *i*  ?r  i*  i*  *•* 


'?e23'34, 

'070a 'B4)5 

PRIORITY  , 

"/ 

IP 

*/ 

es     ); 

*/ 

.<*  »■»  ***  »'*  *'*  *•«"  »W  »'*  «i*  *'»  ^'*  ***  »J*  v1*  ***  *'*  *•*  ***  »**  ***  »'*  »'*  »'*  *V  »M  V*  ***  •**  >'*  "■'••  V*  »'*  *'*  ***  >•>  »**  ***  *A*  •***  V^  ■*'■•  J*  *•■»  s'#  »™  *'*  ***  *■'"  **"  «■'*  *'■*  *'*  ***  **>  "J*  h**  **- 

^*  ',-  ^|-  *|%  »|-.  *,>  .,*  ^Y*  »,*  *p  ^-.  *,*  ^,^  >i«  ^,-.  *j»  *,»  *j»  *|»  ^j*  ^,n  >j*  *^s  j)*.  ^|^  *,-*  *p  i"  *p  *p  *i*  *t*  nr*  *i*  *c*  'i*  *r*  *i**  *r*  *p  *t*  **■*  'j**  *p  *i^  *^**  r\~*  *■»*  I-*  *p  *»*  *i*  'j1*  *i*  i"  *r*  *r* 

5*»  ***  »'<  »'»  O*  O-  »'»  »'*  **'  *•--  »'*  v'<>  «'*  v'*  *'*  *'»  *'^  »•>  »•■•  »**  »**  v*-  »'»  *V  ».'»  s*»  »'*  *•*  *'*  *'.*  »'^  «/*  •'*  »•»  »*■•  »'»  >*■•  »'*  »'^  ***  *'*  *'■*  »*•*  •■**  »'*  »'»  ^V  *''  »*'  •>'*  x*»  ***  *'^  »**  »**  »•*  »•» 

,•    *(»    *,*  »,»  ^,»  *,■•  *,■»   r,-   rt~-  *,•»  #,«*  ^*  #|N  *j»  ^jH  *(»   ^,-.  *,s  #j^  ^t^  »4»  »t*  *,%  ^j*  »(v  ^j*    ^j»  r>t  *  f*  rt^  *,■>  ^»  *(*  rf^   >,■»  *^%  #,»  *(»  *|V  *j»  ^j*  ^h  ^<s  ^^v   ^x  #-(«>    *(v  y(-»  *>(i    ^,^  *(»  *,»  ^(»  *|^  ^t»  ^,*  ^,  ■ 


«  'r  ■ 


***  ;'i  ;'t 


-*  *r  *i- 


This    c 
proces 

MCOriTE 
the  in 


»  ***  »'.  JU  -a*-  *'*  *•*  V*  »'-  *.'* 
-  *r  *i-*r  *r  *r  i ■  *v*  t  t* 

.  y^  *•-  *»r  y-  y*  y;  ^»-  j-  ■•>* 

nit  : 
PROCEDUR 
%INCLU 

begin; 

CALL 


DINIT2.PLI  code 
ode  creates  the  D2  process  and 
s  for  execution  under  MCORTEI. 
X  loader  the  last  process  load 
itialization  process. 

*a»  »JU  «j.  «K#  *l*  O^  V*  V*  *V  V*  *•'  >•*  V*  V*  *'»  ^**  ***  ^*  V*  >'*  *'*  ***  ^**  ***  ***  »■*  ***  V*  V*  V* 

*r  *i*  n*  "t*  o*  *^-  Tf  V  *r  ^*  -f  *r  n-  *r  *i*  V  *r  *i*  V  ^  **"  *r  'r  *r  i-*  »r  i-  ^'  *£*  'i* 

*•*  X1-.  **  •  *'»  *,**   »•>  >•-  »',»  *#*  O^  %l«  »•  -  **y  *X*   -1.-  ^'*  >'  •  «!-  V*  »'*  V-*  ***  »'l»  O*  **>  »'»  *'*  **«  V1*  O* 

*^^  0m>  *i-   *m*   >|  *j*.  >,  ■  'j1*  ^,%  •>!%  *^*  <.,n  ^t-»  *f.  ^j%  *j".  -N  *!■*  ^»  #,^  *,-.  *|H  ^(^  ^t^  -^.  rfj-»  *j-  »(»  *t-«  *(» 

E  OPTIONS (MAIN)  RETURNS ( ); 
DE  'gateway . pi i  '; 


create_proc  ('?1'B4,  'ed' 

'?929'B4,  '0 
'0439 'B4,  '0 


the 

Us 

ed  m 


del 
ing 
ust 


ayer 

the 

cont 


am 


'i*  *i*  *i* 
3p  5^  V 
;'<  ^c  3*< 


V  V  V  t*  « 


>  »'*  V*  v*rf  »•*  «•*  V*  < 

'  n-*r  *i*  T  'r  *i*  • 


B4, 

713'34, 

'0029 '34 

713'E4, 

'0713'B4 

); 


/*CALL  create_proc  (PROCESS  ID,  PROCESS_PRI 
/*  SP         SS         IP 

/*  CS        DS  ES      ); 

CALL  create_proc ' ( '02'B4,  'fd'B4, 

'0a49'B4,  '0713'B4,  '01c2'34, 

'0439'34,  '0713'34,  '0713'B4)J 


*/ 
*/ 
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CALL  await  (  'fe'B4,  '01  'P4)J 
/-CALL  await  (   SVC  ,   COUNT);   */ 

end; 

end; 

*•*  »•*  «.' '  »*#  »'.  «.'.»  «.'*  »•»*(*  »'*  *'*  *• '  *  *■'»  *'*  »'■•  >**  ***  ***  *■'*  »'*  >'*  **/  **'*  *'^  •>**  *'*  »*'  %**  *'*  »'*  »**  ***  »'*  »**  V*  ***  »'*  *■*■*  *'*  *'■'  «>V  ***  *■'*  *i'*  ** '  *•'*  %'*  **<  *'»  »**  ***  V' 

*,»  *,-»    *|S  ^(»   *p  ^j".  »,»   *(»  »|»  »|»  *|«    *(■»  *|»    »,•  »,■■  >|»  *,»  *f*  *-j»   ^j*  #,»  *,"•    ',»  '!*■    »|*  *|*>    *i»  *|*  »l»  *|»  »,-  *|*    *|»  *|*  *p  *|*  #■!*■  *r*  1*  *t*  *i      *|*  *i"*  *^    "i*  *l"  '«*  '    *  *('    *»*   *i*  'j" 

%.'f  »•*  »**  V*  *•■*  ***  *'»  *'*  »■«■  **•  »**  V*  *'*  V*  *■'*  V*  V'  V*  s2ff  V*  s'e  V*  V*  V*  V*  *'*  *'*  *'*  V^  V-*  V*  V*  ***  V*  ***  iV  ***  i*''  5*tf  V?  V*  Vf  ***  *V  *'"  *V  *'■*  *'*  V*  V*  *'*  ■*■* 

*,S  *,%  #t<k  *,*  *,*  *(«  *j*  *^%  *p  *,»  »>(»  *,<•  *4»  ^t%  *|«  #p  *(x  ^,1.  ^^  ^(»   ^W  #,%   J_»  J,»  ^(»  ?^  *,*  »(%  i,<  J(«.  ^,s  J4»  *,»  ^,*  *f%  *,«•  *,%  ^|»  rf,fc  j(^  ^(»  #(t  *(^  *.,«,   #(^  ^(t  »,*  *(>  ?t»   ?(*  ^(«  *4. 


3(«  »(*  *i»  »,*  « 


y.  v-  >'- 


^'  ?r  v 


MCDEMC.PLI  code 
This  code  is  the  Tain  controlling  code  for 
demonstration  programs  Bl  ant    D2 .   It  is  c 
separately  and  linked  usira  the  Dl  and  D2 
option  f i les  . 


the 
ompi 
inpu 


led 


'r  V*r 


*!*  V  »»* 


-'-  «■<*  %■»  *•*  »%  »'*  hi*  ^'*  %•#  »•*  »'^  »**i  »'*  «,'»  >**  »•*  *'»  »'»  *'*  *'»  *•*  *'»  *V  *'*  »V  >'"•  V'  *•>*  •»'■'  *'<■  *'»  •£?  *'*  ***  ^**  »'*  *'*  ***  *'*  *'*  -J*  +J*  »'*  »'*  »J*  »** 

».*    »|»      »^  »|^     *    *    »,•    *(■»     <"(■«    *|S    *;>     »t»    *,»    »,»     *■)-     #(-    »,■*     *|^    *j»    *,»    *|»    *,*    ^p     *^»  »,*      *^    rfj*     ^(,»    »,*     >|»    ••,-    *t»     *jk     »,»    *,*     *,*  *|»    »!<•    »|*    •>,*    *_*    #,■»    *|»    *,»  *j»     *,-    ^j1* 

*►*■  »v  *'»  »•*  ^'*  ***  »*?  V  »'<  »•*  ^**  *'*  »**  *■'»  »>  V'  *^*  >'*  *i*f  *fe  ^'*  *V  Vf  V^  *V  V*  *'■*  V*  Vf  ***  *''  *V  ***  *''  s'*  V*  V*  *"*  *•*  V*  V'  V*  V'  %V  *V  *v 

#.S    »,»     »|  ■    *|*     *^*  *(•«    *j*    >p    *,H    »(»     ^»     *,»    r  (.     *,»    *(^    J,%     »,>.    Jp    >|fc     *,>.    >,*    #(^     J,s  i|^     ^,t    ?,N     rt*  ^|^    J|^    »(V    *|»    *(*    *,*    #p    ?j»    if*    ^,»    ^f»    ^^H    J^«    J,-.    ^(*    J,»  ^p     y(.    #|^ 

ncdemo: 

procedure; 


»•»  *•*  ».f  *j* » 
^i*  *(*  j|^  *,■*  * 


i     rf-    *f*  3t»    *j»     ^,-     -|k    »,»   »>|% 

*,»  *,!.  *)»  J,-  *p  *,t  *i»  *,- 


^INCLUDE  Gateway. pi i '; 

DECLARE 

lo^_on  ENTRY! 

DECLARE 

delay_value  BIT(16)  STATIC  INITIAL  ('0007'S4)f 
one  3IT-16)  STATIC  INITIAL  ('0001'?4), 
enough  BIT(16)  STATIC  INITIAL  ('0064'E4), 

delay  BIT{8)  STATIC  INITIAL  ['02'B4), 
sync  BIT(B)  STATIC  INITIAL  ('03 '34), 
exit  BIT'8)  STATIC  INITIAL  ('ff'B4)J 

DECLARE 

rrs^l    CffA?ACTEE(21)    STATIC    INITIAL 
(  'Delay    Event    Count    is    ') ; 


CALL 
CALL 
CALL 
DO  WE 
PUT 
CAL 
CAL 
del 
del 

end; 

CALL 
:nd  n^cd 


l0£!_ 

crea 
crea 
ILE 

EDI 
L  ad 
L  aw 
ay_v 
ay  v 
/*  D 
pree 
emo  ; 


on ; 

te_ev 
te_ev 
(del  a 
T  (ms 
vance 
ait  ( 
alue 
alue 
0  WHI 
mpt  ( 


c  (delay); 

c  ( sync)  ; 

y_ value  <  enough); 

si,  delav_value)  (SKIP(£) 

(sync ); 
delay,  delay_value ) ; 
=  read  (delay); 
=  add2hitl6  ( delay_value , 
LE  */ 
exit); 


A (21),  B4i4)); 


one )  ; 
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»l*    *'*     »'*  *'o   »'o  *Ao   v*-*    *'  -    O*   »'.•    ^'^   >'  ■   *'-  »'*   V-    ^'-   **o  ^^    ^''   *'*   s*o    ^    '    *J  *  >hlo    ^'*   %'^   Oo  ^l*.     *   ,    ^'^   o^    ^*,   %1*   v^    ^l,   ^i^    ^' ,    xo    vi,    ^tj  ^-^  vf^   ^1,  ^irf    „i^   ^i ,    ,  i^   ^r      ^_    ^i_,    v>^  ^p,  ^i,  ^t#  ^f^,    ^^    H»^      -^    ^j^   ^lrf 

',-  i*  't*  i"  *t"  "i*  i-  *r  *i*  *»*  *,"*  o-  *r  "«*  *p  *r  *i-  *r*  *r  i*  i*  "i*  *v  *r  *r  ^  t  *v  *.**  n*  *v  ns  *r  n*  -r  *r  *»*  n%  '»■*  *r  *f  t  i*  t*  *v  t  *i*  V  *■>*  *r»  n-  n*  TTT-rvrTT 

**o  «**  ■»'*  *'«  ">*»  *•'  »V  »**  V'  V  *  **«•  »*o  »*o  +.*r  *J*  **o  %<o  «w  »*#  *''  *'*  *'*  ***  *'*  V*  *'»  %•*  V*  V'  *■'*  *•**  *f*   *■**  ^l*  **'  ""V  **'  *'*  ^**  ***  x''  *"*  *•'*  ***  V*  *■%  *■**  ili  *'*  *'*  \!i  *'*  ***  *'*  ***  V*  ***  V*  i'*  s1* 

op  op  *•,-  op  op  ?p  /|»  *p  Op  ?,-  n^*  o_-  op  op  ,p  op  ,,*  op  op  *p  ,-p  ,p  ,»  #,*  Jp  Op  Op  op  #p  ,-p  Op  »,»  op  ?f%   op  *^-4  op  *»|fc  #p  *,%  op  op  -,-  op  ^,n  »,».  *•,-  *(•  «yk  *,■»  >|%  *,■*  *^%  *,»  *(i  *-,-*  *l*  ■*!*  ■*»*  *p 


***  L0S_CN.?LI  code 

***  This  rode  allows  the  operater  to  start  all  real 
***  processors  executias;  in  MCLEM0  at  the  same  time 
>;<*s^  regard  le[  of  the  order  that  they  came  on  li^e. 
***  This  is  a  lemonst rat  ion  only  and  is  not  reauired 
***  under  MCOETIX. 

.i-  j-  y. 
•r  *i*  Jt' 

kV  *•*  **<•  »•'•  «•'•  %'*  V»  %l»  v*  **•■  V*  ***  V*  *V  *'*  *'*  V'  \*f  *'?  ***  **•  *>'*  **■*  •**  V*  »**  ***  *•■*  V*  **-  ^'*  \V  V*  V*  ***  *V  s1*  V*  *'if  V*  *'■*  V*  *''*  s1-  *"*  V*  *''  *■'*  **'  *'*  ^^  ^'-  V*  * 
-,-.  *|*  *,»  *^«  *,-  Jt-.  j^*  *p  *!"*■  *i*  *i*  *i  *  *»"■  t*  *t*  t*  *!■*  *i*  *i*  *i*  *i*  *i*  *i*  *f*  *»*  *i*  *r*  *v*  *^  *r*  *iv  *n  n"  ***  *i*  i    *i*  n*  *i*  *(*  *".*  'i**  *is  *i*  *t%  ^"*  *p  *t*  i*  *i*  *p  *f*  *i*  * 

3**  »•*  «.'»  %v  v'»  *'»  »*-  */'  *'*  *'■*  »**  V*  V*  *»*/  V*  *V  *"*  V**  v**  *''  ^','  *'*  >**  k'*  V*  V*  *V  V*  V*  **'  V*  *V  *~'f  V*  \*£  "*■*{  ***  i*/  V"  ***  *'/  V'  *■''  *'*  vt*  *'*  V*  ",rf  ***  *V  %l'  *'rf  ^'*  * 
,-*  *,«    «>,-  «|*    *(>  #t»  *j»  J^»  o,s  #p  <p  >,»  *,»   *|V  J,^  «|V  »,»  Jp  *(>«  *,■»  J(-»  *(»   J^  *jh  Jfx  ^^  *j^  ^|»  ^p  op  Jj«.  *,^  o,t  ^,»   >p  *p  oj*  *|*  *p  op  0|^  *(■.  0]V  op    op  *,«»  /p  op   op  ^(^  *-t*  op   Jp  o 

lo£_on : 

procedure; 

%INCLQDE  'gateway. pli '; 

DECLARE 

go   signal  CH«E  VARYING, 

num_sbc  less_l  BIT(16)  STATIC  INITIAL  ('0031 'E4)f 
ore  3ITT15)  STATIC  INITIAL  ('0001'E4)t 

turn  PITU6)  STATIC  INITIAL  ( '0000 'E4.)  , 

loe;_ir  BIT(S)  STATIC  INITIAL  ('?1'B4)5 

DECLARE 

msffl  CHAP ACTER(39)  STATIC  INITIAL 

(  'PCOI-TEX  Demonstration  Program  "ON  LINE"'), 

mss2  CHARACTERi30)  STATIC  INITIAL 

('Press  "m"  'RETURN"  to  Continue'), 

ms?3  CFARACTER(14)  STATIC  INITIAL 
(  'Turn  Value  is  ') ; 

PUT  EDIT  (msgl)  (SKIP(12)f  X(21),  A(39))5 

PUT  EDIT  (")  (SKIP(13),  k{?)); 

CALL  create_evc  (loe_in); 

CALL  create_sea  (log_in); 

turn  =  ticket  (log_in); 

PUT  EDIT  (ms^3,  turn)  (A(14),  B4(4))5 

IF  turn  =  num_sbc_less_l  THEN 

DO  t 

PUT  EDIT  (fT}Sg2)  (SKIP,  X(25),  A  (  30  )  )  ; 
SET  LIST  (go_signal); 

END;  /*  DO  */ 
ELSE 

do; 

turn  =  add2Pitl6  (turn,  one); 

PUT  EDIT  ('ENTER  await(lo*_in,  turn)  =  awaitC, 

',  ',  turn,  ')')  (SKIP,  A (34),  B4(2) , 

B4(4),  A(l)); 
CALL  await  (loe  in,  turn); 


.  *»o  J'* 


■hlo  *'o 

i'fi 

Vt 

'.' 

** 

* 

^^ 

% 

^>;- 

'l: 

:3jc  oj: 

■'- 

tV 

;.: 

1*  'r 

log  in, 
A  (27, 
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or  V  V 
,i,  ju  *>, 

*1*  *r  *? 


end;  /*  do  */ 

CALL  advance  (lo£_in)i 
END  ic£_onJ 

~,>j   «.'»  %,'s   »■»  »'-  %!«>  «,'-•  tO  »>'-  *■'»  »V  ■«■'-  »■■*  V<"  ■»'-  V*  — *^  N*>  ■•'■*  *'*  "J*  »'i»  ***  **'  »'»  ->'*  »'*  V'  »**  »**  »'-  V'  ■»'-■  ■*'-  **"  -■''  V*  -'*  -'»  »'•  •"'■*  -''  *'*  «■'■'  -''   •.'-  -'*  v '  *  V'  *■''  »■* *  ■>*■*  «■**  -  *  •■'■'  »'-  »' -  "J-  V*  »'  - 
7|-  -,«■  »p  #p  *p  ?j%  *p  J^t  J,-  *,*  3^   *p  «y»  #p  »p  ^f*  *|»  *p  *p  Sp  »p  *|^  *j»  *i*  *p  #p  *p  *p  *p  *p  *p  *,»  *p  *f»  *p  »p  *p  *p  *p  *p  *p  +f  +f*  »p  *g*  J,-*  #p  *-p  *p  »,*  *p>  -f»  ^p  >p  *p  -p  *p  *>|»  ?,-  »(« 

O*  »■*    «•*  *1*  ***  »•*  »'*  *V  *''  \t*  V*  *'f  *'■*  "■'*  »**  *'*  *'-  *'*  *'?  V*  ^V  **■*  ^**\V  V*  *'*  •*'■*  *'*  *'*  *'»*'*»'"•  »'*  »'■*  V*  »**  *V  *'*  *t**  V*  i'*  *'■*  *'*  fcl*  *'**  *' *  ***  *"*  *"•  V*  **"  **■»  *'*  *•'  •''■  **"  ***  *■*  ***  »'' 
*p  Jp    *p  *p   »,■*  *p  *p  ^,*  «p  >p  ?p  >p  *p  IT  *p  *^  *p  *i**  *t*  *i*  *p  *i*  */**!*  *i*   '»"*  *i*  *t*  ^T*  *<*  *«*■  *>"  *i*  *lf*  ^*  *»*  ^*  *P     t^  *t"  T*  *P  *i"  *"«"  *|*  *t*  *i*  *i*  *»*  'i*  *•*  *iH  'i*  *TP  *P  *V*  f*  *T*  1*  I** 

'.'•  »!;  i|f  5<=  '?  1" 

***  DEL  AYE?:.  PL  I    code 

***  This  code  provides  a  time  delay  to  demonstration 

***  programs  Dl  and  D2 ,  under  the  control  of  D2. 

»'»  ** *  »**  *•*  •**  ***  »A*  «^«  »'*  s-- »  O*  »*^  V  ***  V*  ***  *'*  »**  ***  ***  **•  *l»  «**  ***  >'■*  *'*  *•*  V*  ***  ***  «**  »'*  ***  %**  ***  s'*  ^^  *V  *^*  V*  •■'*  V*  V*  ***  *•*  %'■•  »**  *'■»  »'■*  »•*  *V  »'/  ***  »'*  ***  •**  M*  *'*  ***  «'» 

<>,»   *|*    *.">  »,■*    #|*   #,»    *|*   ^*    *f~   »,»    *p    *p  rf[»    »|*  ^  ■•  *p    *,"»  »p    #(»  *|»   *,»  *(»   *|»  *p    J(*    *|*    ^«  ^p    ^(»   »,»    *)«•   *(»    *p   *p    *|»  *(«    ^p>    »,»    #|»   yp    ^pi  ^i»   *)»  ^|*    »p   ^p>    #p  *p    rp    »,»  *p  »,*    *|»  #p    *p   *)*    ?p    *y«    ^p  *(* 

.  •_.  w<^   «*.   *'-    «  *  *<*  %•#  •,'*  *'*  ***  *'#  *■'*  ••'*  *^r  *'■•  *■''  ***  *i**  >V  %'-  «•**  fcJ*  >**  V*  **^  V*  \**  *'*  ***  "■'*  V*  »iV  "n''  «t**  *'*  *'»  **•*  *'•  «•'*  *'■*  »'*  >*i*  ^l*  *V  s**  *^  '•'*  ***  *■''  »''  •»'*  *V  *'•  »'*  »•'  W*  *V  V*  »**  »'* 
»»,^  ^^   *(-  #p    *,s  »-, .  rp  ^*  *p  *p  »p  *p>  'p    "T"  *p  *"p-  «-p  **p  *]^  ^p  ^p  >p  >p  *p  <»p  '(•k  J\+  *p  *.■•  *p  ^^  *p  *p  ^^  '|»  »p  *)■»  *p  ^p  *p.  *p  ^p  ^p  *p  J|*  "-p  ,p  ^p  J| .   »p  *>p  Jp   *-p  *p  *p  «p  *p  >p  *(-.  #y* 

delayer  : 

procedure; 

^INCLUDE  'gateway. pli  '; 

DECLARE 

nax_count    EIXED   STATIC    INITIAL    (16^00), 
iterations    EIXED    STATIC    INITIAL    (10), 
'k,i,j)    EIXED, 

start  BIT(16)  STATIC  INITIAL  ('003CB4), 
num_processors  BIT(16)  STATIC  INITIAL  v*0002'B4), 

delay  EIT(e)  STATIC  INITIAL  ('02'B4), 
sync  BIT(S)  STATIC  INITIAL  ('03'34)J 

DO  k  =  1  to  max_count; 
DO  i  =  1  to  iterations; 
DC  j  =  1  to  max_count; 
end;  /*  DO  */ 
end;  /*  do  */ 

CALL  advance  (delay); 

start  =  add2Mtl6  (start,  num  processors ) ; 
PUT  EDIT  ('sync  await  is  ',  start)  (skip,  A(17),  B4(4))J 
CALL  await  (sync,  start); 
end;  /*  DO  */ 
END  delayer; 
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.APPENDIX  F 
JjI>|XS§  INPUT  OPTION  PILES 

This  group  of  files  allows  linkage  of  specified  object 
code  modules  using  the  LINK86  input  abbreviation.  As  an 
example,  after  compilation  of  DINIT.PII,  MCDEMO.PLI,  am 
LCGON-PLI,  and  assembly  of  GATEMOD,  the  demonstration 
program  Dl  is  created  envoking  "LINK86  Dl[i]".  Eor  further 
information  on  input  option  files,  see  [Hef.  13]. 
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_J,  _<-  »l,  »<»  Nl,  »,"#  *,',»  «,'»  V*  »'■»  -»J»  »'*  V'  *-'*  *-'»  *•'*  •>'*  *^*  *'*  V*  *•'*  *•'*  "'*  %'*  »'*  *•**  S%  »>**  *-'*  *■''  »'"  «■**  *''  **'  »'*  V*  *■*''  *'-  **'"  ***  *'*  *»'*  *■'*  »**  •»'■*  »'*  *»**  "  '   *■'*  *«''*  »'*  *-**  »'»  *'"  *-**  %"*  *J*  "•'••  »'^  *.'* 

?,  <y*  *p  *f->  Jy»  *,»  *|-  »p  OP  *-p>  Oj*.  op  J(«  op  op  Op  op  OP  O*  OP  O*  'I"  1*  *p  O*  O*  O*  O*  Op  O*  OP  *p  OP  OP  OP  *P  O*  O*  OP  O*  O*  O*  *»*  OP  Op  OP  OP  OP  OP  OP  OP  OP  OP  O*  'i*  OP  O*  *P  O*  OP 

»i^  »i>  «'»  -> .  s'»  ***  **■»  »'■»  sV  V*  \V  v*  V*  *■**  *V  V*  V*  **'*  \V  *»V  V*  »**  *iV  *■'*  »'■*  »'*  V*  *•'*  *"'  */'  *'-  sV  *•'*  ***  *'*  *>'*  ***  V*  V*  %V  *'*  ****  *'*  >V  *'*  *V  »**  ***  *V  *-''  »**  V*  *■**  V*  *'*  */^  V*  *■**  s'*  *'' 

r  ■*    0~     ?,«•  *,*.    OP    2p    *,»    *|»   OP    J,*    *p    »,-.    ^|«.     jfl  *,<»   0>S   Jfi    »,»    Op  J(^   rf,»   *,%   Jp  »(*    »f*    #,»    ?(*  »,*     *^»    J,V  *,■»    Jp    »,»,    «■,-.    *,»  #,■•    *t".   ^|i    >i-    *(k    ,,»     ^,*    ^^  ^fc    ^ji  *jk    ,f^   ^(^    »(%   *t*    *_»    ^(i»    -(^  ^t«   ^%    ^4    JjS    ,^v    J,-,    ^p. 

***  ^COF.TIX    input    out  ion    file  *** 

»l,    -tj     -I,    .1*     .1^    ^'^     »•>     ^1^    *,*>   *l^     *t»    %l^    »'*     l1/    ^»     s'^    »'*     V*^    ^*#    <•*    v'i*   «.**     *Jf  S*«     N*^     v'rf    %•>   \'s    %•*     <.'*   »'*     »**    V*»     »**    %'y   S**    **rf    *'r    ••,'*    »**    ^'»    «'^    >»'*  fc'>     »'/   »'»     »'*     »  '  •     kltf    •>'*    •.'»    %'»     "k'*   *'j»    »'#   *I*    *' *     fc'*    •,'  J    O  » 
^  ,   A*    ^,t    ?(-»    ^.^    Jj»   *  ^    -,-    ^jV   ^,«     ^f»    >|»    ^j*    >#»  >j»    *,»    »f»    >^»    «•,%    >|«   *-('»    ^t^i    ^»  Jjfc    >,-.    ^,^    ^(S  >j^    *,%    *^  *j>    ^4*   *,»    *,■*    ',■*   •>'['*    ^,»    *|»   *j»   *("•    ^,*    *4"«  ^,*  *j*    ^(»  »,»   *^*»    •    •»    *ti    *y    *|»    ',.     »(»  *j*    »,H    *^»    ^,  «    »,»   .",»   ^|» 

»*^  *■*  »*<■  *•*  x'«  *'/  V *  +f*  »'*  *' *  Vr  »'*  *' »  *'*  »'*  V*  \**  ^**  ***  %*'  »'*  »V  ***  *V  \'*  *'•  *'*  *''  >'*  ** ■  V*  sV  »***'»  V*  >**  *"'  V*  V*  %'*  ***  »'*  »'*  *'*  »'*  ^"  V*  *'»  •J>  •'*  V'  ***  *•*'  *•*  *'*  ^**  ^'*  »*>  »'■»  »'* 

J(,  >p   5^  J,-*    it~    >,»  3^^    ^  #,.  »(»  *tt  #4-  *%-    #,-  *,•  ?,»  *,»  Jt.  .,»    ^»  *,>  *(*    -,-  *t<    *,.    »,»  *■,»  *t*  ?,»   *,  •  *,»   ?,»  *,»  *■,*    *i»  /,»   *,^  *|»  >4»  #,^  *>,»  »,»  *,»  <|»   »,»  ^,»   ^,»  »,*  <|*   *^»   *|»  *j»   *^»  *|»  *)»  *|*   J,»   rf>   »y%  *,- 

MC0RT2X    =   T7X/TRC    [code[db [P80] ]  .data  [ac  [P5C] ] ] 


«,■«  *'j»  v'*  J*   \V  V*  »'*  »•*  »v  •.'<  »'>  »V  »'■'  sV  V»  *V  ^'>  »V  %**   •**  ^'*  »**  v'*  »V  **^  »'*  *''*  »'*  •>'■•  ***  »'*  ***  ^'*  ^'■»  V*  >V  •>'*  V*  »V  ^v  *•*  v^  »'*  »•»  »**  V*  *•*  ^^  »'»  *■»  **^  k(*  -v'*  »•*  »'*  ^l,  *.v  *•*  ***  v 
,,»  J,-  ?4»  »t»  V,%  *ts  »,»  *,>  *(*  y,«  r(*  *,*  *|*  ?,»  *|*  •,*  J,*  #|*  *(»  »(■•  ip  *|»  *p  »|*  #(*  #/»  *,»  *|»  *f*  *(*  '(>  »p  *»*  »p  *,*  *|»  <S»  *p  *(*  #!['•  *p  *p  *k*  *|*  »t^  ^"»  *p  *)*•  *p  *p  *i*  *p  ■*(■•  *|»  •l(>  *p  ^p  #^»  *,*  J^* 

»'«  ■,  x'*  .'x  *v  ***  ■»'*  "*'  »V  s**  xl^  *''  s'*  v?*  V*  *■'*  V*  *V  *'*  "»*-  ***  ^'r  ■***  *'*  *'*  ***  *'*  **'  v'>"  *''■  V'  *■  V  v**  *'*  ^'*  V/"  >*>  ***  V*  ***  ^,*  %V  **>  ■**?  *V  "iL"  ^V  »■*  **'  *•*  ***  ^'*  s**  *•*  V"  *V  »''  *'*  ^*  *'* 

',   *p  ^j-  *■,*  »(v  ^»  ^ti  «j»  «,s  •-j'»  ^|>  *p  ^_   >|*  «*,»  ^j>  >,«  .,\  *ft   ^,»  ^p  »,^   p  *,%  *■,*  *,»  ^(»  ^%  *p  *p  ^|^  *^»  *n»»  *-|-  'P  ^P  "*l*  *P  **P  'I*  *|s  'O  *P  "*P  *t*  1*  ***  *l*  *P  *>*  *P  ^^  *P  *P  *P  *P  *1*  *P  *P  ^* 

'""  Dl    input    option    file  *** 

-i,  »'^  »•«  ,o  »*<  »**  »**  v*  »**  »'*  »'*  »V  *9*  »'*  V-  »'*  *V  »'*  *'*  *'^  »'*  »**  *V  »'>  **'  »'•  s**  *'*  ^'»  *'■*  ***  V*  *■**  **r  "•!**  *•*  sV  *i"/  *V  V*  ***  ***  V-*  *'*  "■'■*  *'*  »'*  *t*  "■'*  ***  fc'*  »'*  "•*»  *'•'  ^'*  *'*  *'*  *'*  ■•'*  *'^ 
*(»  *t>  fft  *^  »j*  *,%  *,»  i%"  »,»  »,^  »p  *p  *x*  *i*  *i*  O*  *P  *P  *t*  "P  *P  *P  *P  *»*  *P  "P  ^T  *P  *P  *P  *P  *^  *t"  *r  T^  *P  'P  *P  *"P  'P  *P  *P  *P  "TP  *P  'P  *P  *P  *P  '»*  *P  *"is  'P  *P  *i*  *P  *P  *P  *-*  *P 

^•rf  *<#  «'*  *•■•  sV  *'*  V*  V*  ***  *'*  +*?  s*-  ***  ***  ***  *'*  ***  *'*  *'*  V^  sV  *'*  V-  *'■*  V*  V*  *V  V*  V*  *'*  **■*  ***  ***  •**  ***  **■*  s1-  ***  **■*  V-"  *'■*  *'■'  V-*  V?  *J"*  '■'^  V  *f*  *ft  V*  ■***  *■*/  *^  *^*  *^*  *"*  *'*  ***  *"*  *** 

y(^  *,■»   *,*  ?|»   ?,S  »,»  ?,»  ?,"•  *,»  *,^  ##*  *,■»  »,•»   »,•*  *,*  *,s  *,»  ^(»  *t^  Jjfc  *!«.  *|»  #|«#(«   ^(>  Jt»  *tfc  #p  #|»  *^  ■  *,      ^*  *,*  *|^  ^i  *|*  ^,-»  S^i  ij%  rfjs  *,x  ^|*  *p  rfp  *|*  *|%  ^f-  *,".  ^^  ^,«»  *,»   *^^  *f»  *|*  #(■»  #|*  «^%   *,*  *(>  *,» 

Dl    = 

DINIT    [code[ab[54r]]  ,    data  [ab  [439]  ,-n  [0]  ,  ad  [S2]  ]  ,    map[all]], 

MCDEMO, 

LOGON', 
OATEttOr 


»i-  V'  fc'»  «■*  *.'j  «'i  »'«•  »•>  »o  »0  «.:*  v«  *'*  \?*  »'*  »■*  »'*  WL*  *'»  V*  V*  *A*  •**  ***  **#  V*  »'■*  ^*  V»  »'*  *•»  *^*  *'rf  ***  ***  WU  »**  *'*  *J*  »**  *'*  *^<»  »'^  *f*  *'*  ***  *•■•  *'*  +.'*  * ■*■  ***  *[*  O*  »'*  kV  V*  »'*  »'*  *'«  *** 
«,%  *|»  »,»  ?^»  ^(»  *,t  *,^  ?,■%  Jf  #(-   rp  *,■«  rt<   *|*  *(■■  *f»  *(-  *|»  *p  *i"»  *|»  ^p  *(*  ^»  »p  >|*  *p  *|»  'f*  »|»  »(■*  »p  *p  *p  *p  f*  'p  *|*  »p  *p  *p   *^*  »p  *p  *p  *p  *p  *p  *,*   ^p  *p  *|»  *p  *p  *p  *i^  *p  *(■*  *p  *p 

^l>    .'^    *l*  «**   *,t*  »•>  »•*   ^**  ».'*  **«    »'»  «.0  *V    ^'     O*   *•*  *'»  J>  »'^  \'»  »'*  ***  *'»  "V   ^^  V*    •>■'*  »'*  *■**  *^"  »'*  ***   "•**  **■*  ***  »**  *V  *"*  *>**  **■*  *''   v*-"  *'*  •',*   "J*"  *'*  "•''*  ■"■'*  *'-  *'••  V^*  *'*   »**  *■''  *'*  **#  »'*  *''*  »'*  *** 
*,-.  #,»    - 1 .  *j*  ^,»  #,•  »t»   ^p  #,•  *4*    *(.  ^p  ^(»    ?|»  y,»  Jj»  *^»  ^j*  ^,%  ^,*  ^,»  *p   *•,«  *p   ^p  Jt»   ^p  »,*  *,»  ^p  *,»  »,»  ^,»  *,»  ^,«  »j*  *p  *p  •Tp  ^t»  *t-»   -'j-  *,»  *f(^    »■,■>  ^|»  *4*  *■(*  *|»   »,-•  >,»  *p    *,-  *■!■»  ^|-  *-p  »,■•  *,»    »,■>.  *■,» 

***  D2    input    option   file  *** 

*,'*  o*  s'ji  v*  *•'■•  *t*  »'•■  V*  V*  ■*'*  *.**  *'*  O*   *^.  »>-  *^  »'*  ***  %u  «J*  -j»  *i.  ou  v  ■>-'*  •>■''  ^^  V*  >^  **'*  *•■'  ***  J*  ***  *•*  5*"  *'*  **^  *'*  *'*  *''■  *'*  *'*  *'*  ■■'*  *''*  »**  '',*  *'*  ***  ***  ^^  ***  ***  *''  ***  *'*  ***  *,"i  *'* 

-p  *p  t  'i'  f  *r  'p  *p  t*  *r  n*  *i*  *p  *p  *»    *r  t  t  t  *r  •"i"  nr  nr  *p  *p  i*  -p  n*  *p  *p  n-  "p  nr  *p  f*  *t  *i*  i*  '**  *p  ^*  t  *r  t  t  *p  *p  *p  i-  i*  *p  'p  *p  *i^  'p  t*  *p  *p  *i*  *p 

^*»  »**  »'<  j*#  <«*#  **>  **»  fc**  »'>  »o  *•#  «•*»  »**  •">  »**  »'»  «**  »*#  **>  »)^  x**  **>  >'*  ***  ^**  V*  3*j  ^'*  V'  ■»*'  ^*'  V*  *■'*  ***  *'*  »'*  *V  *■'*  ^'*  ■*'*  jjtf  *'*  *■'*  *'*  v'*  5'*1  *' '  ■ ' *  •■'^  *■'*  *'*  *''  *'■■  ***  **■'  *^*  ***  »'*  fc''  *** 

D2    = 

DINITP    [code[ab[54Dn  ,    data  [ab  [439]  fm  [21  ,  ad  [92]  ]  ,    rnapTall]], 

rCDEMC, 

LOGON', 

DELAYER, 

GATEMOD 


.*-  +J*  >*-  <*•»  »'**>*  *#*  *<* 


»  %>*  O*  »»^  o*  %>*  »•>  o*  v*  •.'*  «J^  *'*  *•*  »'^  *'*  »■*  »**  >*i*  %'*  *iV  ***  fc*^  x'i*  s*^  ***  ^»  V'  »'*  s'<*  »**  *V  *■'*  ^**  ***  **-  *'»  *■'*  ***  *^*  "■''  V*  *'*  *•'  *>''•  V*  ***  »**  *l»  »'>  *0  »•*  ^'^ 

» *,••  *|»  #(x  »f»  j|»  *|»  *|*  ^i^  *(»  *>j*  *|»  *|*  *!*•  *i*  *^  *,"»  *|»  'p  *p  *p  *•■*  *p  op  i*  *P  *i*  *p  'P  *p  *p  *p  *p  *r*  *i*  o*  *p  or*  *P  *p  *p  'p  *p  o*  o*  *P  *P  "t*  *p  *p  *p  *p 


v'*  v#  v*  V>  ***  O^  ■"''  V*  V*  *y  V'  *i'*  *^*  *^*  V*  »^*  *V  V*  ***  *^*  V*  *'*  *J^  V^  *'*  •i1*  "A*  ^l>  **<  *»•*  V'  •*•  **■*  ^^  *■'■*  ■*■»»  *'*  *■<•  •**  ***  V-*  ***  *^*  *V  *''*  V-  »■*  ■***  V*  *■'*  ^V  V?  ^*  V*  ***  V*  ***  *V  s'-*  *** 
»i->  O*  O-*  n%  *p  O*  *p  *P  *l*  *|     *P  'p  'p  'p  'p  *i%  OP  Ol'*1  'p  *P  *p  *p  o    O     O*  *P  O1*    P  *P  O"*  O"*  OP  'P  *P  O*  *P  OP  *P  O*  OP  *P  O*  O"  O     O    't1*  *P  0*  ^P  O*  *r*  OP  OP  *1*  OP  O*  *P  O       P  *i* 

---  MXTRACE    inout    cotion    file  *** 

*.**    »V  %}*    »**  •.'*  %f*   «*^  •.'*  *.ljr  **»  fc'y  *'rf  »'*   v'»  %'^  %.**  *•*  »t»  »*^  O*  »*^  V**  *'*  »•*  »'*  »•*  ***  ••**  *'*  •>'>  •>'*  %'*  ^'*  **'  »l*  S1*  *'*  »**  »*•  ***  ***  «*'  *'■*  *>'*  "'•'  *'*  »'*  ••'*  ■>'*  »'*  «■''  "J*  ^'*  •>•'  »'*  »**  *'>  •»'*  ***  *'* 

^-  *t»  ^-  »,»  ^p  ^,«  rj»  «-p  *(•  »^»  *•)•  *j»  •»(»  ■  |-  vp  *,••  *-|-  *■,»  »|^  *-|»  *|»  ij*  •■(»  *,*  «■,*  «f»  ^j-*  »(»  ^jp  *(-»  0*-  *p  'p  *p  *p  *p  O*  *P  -P  *p  *p  *P  'P  Oi*  "P  *p  O*  '4*  Oj*  P  *i "  *P  *P  *1*J  *P  *P  i*  *P  O-*  *P 
»••  >'-  »**  V*  *i'*  **-*  *•  ■  »''  •***  ***  ***  V*  *"*  ***  V'  ***  ^'•'  •>'*  ***  »V  ***  V'  *V  ***  **■*  V*  ^V  *V  "»•*  **^  ***'  V*  *'*  V-*  *iV  >'*'  *>V  *'*  *iV  V*  *V  *•'*  *'*  *''*  *V  V*  **'*  •'*  ***  **'  ***  V*  **i  *'■*  V^  ***  V*  *V  **'  *'• 

*,■•  *p  *,■•  »|">  *j*  ^|*  *)■•  *j"»  rfj"*  *,"»  ^i*  #,"»  »j»  •,*■  0|"»  *tN  ^,»  *|*)  *(s  *(^  *,-  ^i  *P  »,»  *,%  >,*  <|^  jp  •'j1*  #^  »,■*  ^,"»  *(■»  i,-»  *,s  J(>  ^|<i  ..,-»  ^(V  rfj^  *p  *j»  »(»  *,»  *,*  rf,»  *4*  •,«  ^(«  ^jN  *^i.  ^t*  *(*  »,-  ^s  *-(—  ^|*  -,»  0,*  »p 

MXTRACE    =   TEX/TRC    [c ode[ab  [A90] ]  ,dat a  [ab  [A6C] ] ] 

«•*«•*  *.■-  »•*  -■#  \**  *•*  *j>«  V*  *'#  ***  »'*»'#  v'»  »v  V*  *'*  V*  ***  ••*  V*  *''  *'*  *'^  ***  V'  ***  V^  ***  V*  ^r  V*  *V  V^  *'*  ^'*  V*  V*  V'  •**  »**  V/  ^r|*  »**  *'*  *'-  ***  *■'*  **■*  *'*  V*  *'*  *-**  *•»  v*  »'*  ***  o<  »<^  V' 
0*  *i*  *  *  »p   *p^  *p  *|-»  *j  ■  *p  o*  *l*  O-*  Oi*  *P  O    *P  *P  *P  Oj*  O"*  O*  *»"•  O"  *i     O*  Oi*  *P  *t*  O*  O*  O     *P  *•    *t     ***  *P     P  *i       P  Oi*  OP  OP  *p  Oi*  *P  Ol*  *P  *p  *P  *|*  *i*  *P  O*  O*  O*  O*  *P  *P  O*  OP 

OP  Oi*  TV   O'  OP  O    Oi*  OP  O'-  OP  O*  OP  Op  o-  V  O-  OP  Op  OP  O*  '*"*  'POP  OP  O*  OP  OP  OP  o^  O*  OP  O1"  OP  OP  OP  OP  OP  OP  or  O*  OP  o*  op  o*op  o-  TT  op  o?op  OP  Ol*  O*  OP  O*  OP  OP  OP 

***  D1TRC    input    option    file  *** 

•»'.*  *v  ■«'■  \'*  *V  *V  sV  **'*■  *•**  *'*  ^**  *i'f  »'»  ■•''  *-'■'  *''  *»**  *»'••  **^  V*  "J1^  •J-'  *>V  >**  »•*  *''  V*  *V  **.*  *-'*  ^^  **V  *V  •**  **t  ***  ***■  *V  *i"*  *»V  V*  V*"  *V  *■'*  *•*'  *J'*  *'*  *'*  *^'  *■'*  ***  *■**  ***  ***  *1-  *i^  *•**  *'*  ***  *** 
tt-  op  or  Op  Op  **•    *P  Oi*  **P  o*  o*     »     ***  *^"  O*  *"P  'P  ^P  O*  O*  OP  Oj*  op  op  op  OP  'P  op  0    o>*  *C  ^p  OP  *l*  t    OP  op  *i      p  op  or  Ol*  OP  OP  OP  OP  'P  *:*  o*  O*  O*  O*  OP  OP  OP  OP  OP  Ol*  OP  OP 

»*'  •■'^  ».•'  »'*  *•(•  »'    «'»  •-'*  »'>  **    k'»  *'*  *.'*  »*»  0«  •.'*  ••'*  *-**  *V  *i*^  *!"*■  *'•  *»'*  »V  ■***  *■'''  *•*'  %H*  *•'•'  't'-'  *'-  ">^  *^'  •»'•*  *•'*  *"i»  ***  *»**  *'*  *'*  **'*  sV  ■»*<*  »'*  *'*  ***  »V  *•**  •»*"  ■*'*  »'*  *•**  »'*  ***  *>'*  *^f  *'*  *'*  *»'-  *"'- 
,»  *",*   ••,•■  ',*  *p  J,     ^j»  <■,■»  *,■-  ^,-   *■,»  *■,»  OP    ^,-  ^(»  0^*  *P  Oi*  OP     t       P  *P   O*  O)     O*  OP  OP  Oi*  Oi*  OP  Oi*    *|*  O*  O)"   OP  O;     O*  Op  O*  Ol*    1*     1    *i**  Oi*  O*  Ol*  O    "*P  OP  O*  *"P  O*  *i*  O*  O*  Or*  O*  OP  *i*  o* 


D1TRC    = 

DINIT    [code  [ab[54?]]  ,    data  [ab  [439]  ,ti  [0]  ,  ad  [82]  ]  , 

MCDEMO, 

LOGON, 

GATETRC 


map  [all] ]  , 
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JL  -L»  o#  »'»  «>«  »»»  o-  O*  *V  »<*  »'»  •.*'  »'-  »*•'  ***  %**  »i*  ■**#  *'«  O*  *•*  »''  »'*  »•«•  »••  »*-  »V  ***  •,t*  V  '  "J*  *'*  *f-  *1-  %V  ***  »'■*  ***  ***  *J*  *•*  »'*■  *■*  ■"*  »'■'  *V  V*  «■'<»  V*  »'*  *•*  »V  ■*'*  »•*  ***  *JU  *<*  »'rf  J*  »■» 

v  *r  *i*  'i*  "p  *i  -  'i*  *v  *r  *t"  i-  *r  *r  *r  t*  *v  *t-  *f  *r  t  «v  *»*  *p  v  *r  *r  ^  *v  i*  V  t  *»*  i*  *r  *v  *r  *v  *r  i*  *»-  «v  *v  ',-  'r  «v  *p  *r  *»*  *r-  ~r  *>■*  *»*  *r  *<*  *t*  n*  n*  *r  i-  *v 


'**  D2THC    input    option    file  *** 

»',  >'»  ***  V*  v*  V-  V*  »•*  V#  *''  ***  V*  ■«'■*  »**  *^-  •»'*  **■»  *■*■*  »**  V*  ■'f  *■*'  ^*  ***  *■'■*  »**  ***  *'*  »**  *'"  ***  •**  *'*  V*  *''  **''*  ***  ***  V*  ***  *'*  ■*i*  »'*  »'*  *'*  V'  •»**  **  •*■'*■  Vy  *>•*  ■,l*  ***  *V  *  *  **■*  V*  *'•'  V-  *'■' 

■v  *t-  *i-  V  o-  *r*  V  *r*  •V*  *\  *v  t*  «v  *r  *i*  i*  t  "V  *v  nr*  "il  *v  *r  n*  i-  -v  t  *i*  tt*  **-  t-  <r  V  *t,**r  "i*  t  ht  *v  *n  t*  *p  *i*  *r  nr  *i*  *r  *>"  n*  *t*  *r  *i*  ttt  V  t  •*>"  ">- 

.  «*#  ^'.  «■-  »'*  «•»  »»*  o .  »'»  k"  »'*  **■*  ^*  »**  »'*  >**  V*  *^*  ^*  »*'  s^  ■*'•*  *'*  V*  -''  '»'■•  *"'^  ^■*  ">1-'  *'■*  *' '  V-*  '■'-'  *■'*  V^  '**'  ***  **tf  *' '  *'■*  'i^  V-  **<•  V*  ***  V*  *'  *  V*  'i.f   *•*  ***  V*  V*  V*  »''  *f+  *''  *'*  *'*  *'■* 
i  *t"»  *t-  -^  ^<.  JjN.  *vs  ^,-  i,*  3j-  »t»  #p  *p  *,■»  *|*  *,»  y,  •  *j>  <^^  *j»  *i-  *^^  *^-*  ^«  *p  «-p  rf-  «y*  *p  ^,--  *v  ^i*  '|-  *p  ^p  *p  i'-  ^v  *-,»  <^f»  >|»  *!•»  *^v  ^p  *,-»  2p  o,«  Jp  >p  -,.  ^,«  -,.  ^»  *p  ,p  ^p  *,»  ».>  rp  »p 

D2 T  D  C    = 

DINIT2    [code[at[54?l] ,    data  [ab  [439] ,m  [0] , ad [82] ]  ,    map  [all]], 

MCrEMO, 

LOGON, 

DELAYER, 

5ATETRC 


S2 


APPENDIX  G 
LHYEL  II  --  MCOP.TEX  SOURCE  CODE 

All  the  LEVEL  II  source  cole  written  in  ?L/M  is 
contained  in  the  file  LEVEL2.SRC.  It  is  compiled  with  the 
LAR3E  attribute.  LEVEL  II  is  one  of  the  relocateable  ccd° 
modules  in  file:  KORE.LNK.  It  is  part  of  the  executaole 
code  module  in  file:  KO?.E.  EOHE  is  the  development  system 
version  of  the  file  KORE.OPS  loaded  by  MCORTEX.CMD  under  the 
CP/M-86  operating  system.  Two  memory  maps  (KORE.OPS  and 
KORS.TRC)  located  in  Appendix  H  give  information  on  this 
module.  The  maps  come  from  file:  KCRE.MP2  after  compiling, 
linking  and  locating  the  applicable  files.  KORZ(OPS)  is 
produced  with  the  code  unaltered.  KORE(TRC)  is  obtained  by 
removing  and  adding  appropriate  comment  marks  from  the 
indicated  code  before  processing. 
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/^i*  &I*  »>*    o-  »'*  Or   *'»  kJU  »j-    ,i,    «'»  »,'*    ***  *'*  »**   v-  %•*  *JU  *■*  <JU  **"   ******   *>*  V*   ***  »'■*  *•*  ***  »'*   *V   »•*  »**   »**  •**   ***  *V   «"**  ***  V*   ***  »'*  ***   ***  ■»'*   ***  »*'   •**  ***   »^*  ■»''    >'■*  V*  V*   *'*  *>*'   "'*   »V       / 
*i»  *r  ns  *i-  »t-  *v  t>  *r  *r  3»*  *f  *r  ">-  *r  *»*  Jt*  *»*  *i*  t"  *r  *r  i*  «v  *r  n*  t*  *r  -v  *r  *r  *!*■  *v  *i*  *r  t  -p  Is*  *r  *i*  *p  i*  *r  *i*  *v»  1"  *»*-  *»s  *i*  n*  "i-  *v»  n~  •n*  *c  *v  *r  t  i5   / 

/■la   »'.»  «.'»   *'*  »••>  «•-   *'*  »•*  »•*   «'-•  »••  »**    »'»  ***   *l*   *'*  »J*  *V   O*   sJ*  .J-    *>*■  »l»    >J*  -J.    »'«■  «*v    >*»   v"»  *•*   >**   »'»   J*   *••   Sl*   *'»   V*   »**  »*•  *•*   *•*  ***  »'*   »V  V*   *f+  *'*   *'*   V-»   *"*   v<*   *■'*  *h>  *'*  ***   y-"   *'*   *'*      / 
'•*  V  -.*  *r  V  *,'  V  *.*  V  "P  V  '.c  :."  *P  'i-  V  ^r  n*  n*  *r  *r  n*  *r  *?  V  t  Sp  ^r  *i-  t  V  *»*  *r  *r  V  *r  V  *r  *v  1*  i-  *r  np  '.-  V  35"  'irT  T"  -i*  T"r  t*  'i-  V  *i*  t   / 

/_i^   «■   ^-.     *-.  ^*  -Ij   .i*  hla  jj   «i ,  »o  **■»  »'^  ».'^  »'*  »**  »■*  »■*  »■*  v*»  »'»  »'*  v' «  »'*  *'*  »**  %'*  »'»  V*  «■'»  »'*  *'*  •■*  **'  V*  »'*  %**  »'»  »'-  *•*  *''  V*  *■'*  *'*  V*  V*  »o  »'*  *'*  *'*  *»*  »•*  O*  »o  «>*  •<*  »<^  O*      / 
'   CI  f I  (7  O  !r  V  -.:  n:  *is  5>;  ;.;  i,i  V  ;«;  *r  5ic  ;i;  V  '■■  *?  5>c  V  •!•  V  V  'fi  '■•  1'  '.-  'ic  ».  -i-  'i- 1-  -r  7f •.-  '.-  '<-  -r  i-  *F  v  '••  '••  f  '••  frf  'i-  i"  '■•  »r  T  / 

/*    FILF:  LIVEL2.S7tC 

VERSION:  ROVE    6-22-B4 

PROCEDURES 

DEFINED:  GATE$KEEPER  CREATE$EVC 

READ  AWAIT 

ADVANCE  PREEMPT 

TICKET  C3EATE$PR0C 

0UT$CHAR  0UT$LINE 

0UT$NUM  0UT5DNUM 

SEND$CtIflR  OUTSHEX 

'?ECV$CHAR  IN$CHAR 

IN$NUM  IN$DNUM 
IN$FEX 

REMARKS:       !!!    CAUTION    !!!     !!!    CAUTION    !!!     !!!    CAUTION!!! 

I?    MEW   USER    SERVICES    ARE    ADDED    TO    THIS    !*ODULE 
OR    CHANGES    ARE    MADE    TO    EXISTING    ONES,    MAKE 
SURE    THE    LOCATOR   MA?    (FILE:    K0RE.MP2)    IS    CHECK- 
ED   TO    SEE    IE    THE   LOCATION    OF    'GATE-KEEPER'    H4S 
NOT    CHANGED.       THE    ABSOLUTE   ADDRESS    OF   THIS 
PROCEEURF    HAS    EEEN    SUPPLIED    TC    THE    GATE$MODULF 
IN    FILE:    GATE. SRC.       IF    IT    HAS    CHANGED    THE    NEW 
ADDRESS    SHOULD    EE   UPDATED    IN    FILE:       GATE. SRC 
AND    RECOMPILED.       ALL    USER    PROCESSES    WILL   HAVE 
TC    BF    RELINKED    WITH    FILE:      SATE. OBJ    AND 
RELOCATED. 

LITERAL    DECLARATIONS    GIVEN    AT    THE    BEGINNING 
OF    SEVERAL    MODULES    ARE    LOCAL    TO    THE    ENTIRE 
MODULE.       HOWEVER,    SOME    ARE    LISTED    THE    SAME 
IN    MOPE    THAN    ONE    MODULE.       THE    VALUE    AND 
THEREFORE    THE    MEANING    OF    THE    LITERAL    IS 
COMMUNICATED    ACROSS    MODULE   BOUNDARIES. 
'NOT$FOUND'    USED    IN    LOCATE$EVC    AND 
C-E&TE5EVC    IS    AN    EXAMPLE.       TO    CHANGE    IT    IN 
ONE    MODULE    AND    NOT    THE    OTHER    WOULD    KILL 
THE    CREATION    OF    ANY    NEW    EVENTCOUNTS    BY    THE 
OS. 

*/ 

/***  ***  »•»  y*  *•'»  J*  V*  »•*  »•*  V*  *J*  *V  ***  ***  ***  *"*  V*  ***  ***  **»  ***  **•  •**  k V  V*  V*  Vr"  *•*  ^*  ^'*  ^V  *'*  ^*  *■'*  *V  *"*  >**  *•*  *"*  V*  >V  *■*  ^*   »•*  V*  *'*  *'*  *'*  •***  ***  V*  ***  V*  »**  V*  V*  ^V  *'*  / 
*r  ^*  *t»  *|"*  *i*  *f»  *.»  *i*  *g*  »i»  *,»  *tfc  *^»  *i*  ^»  *f»  *p  ■*!*  *i»  *f  *p  *j»  *y*  *i*  o1*  *i*  *p  *r*  *\*  *(*  *i*  '%'*  *i*  *i*  *i*  *»*  *i%  *r*  *i"*  *»*  "S*  ***  *t*  *r*  *^  'i*  *i*  *f*  i*  *t*  o*  't  *i*  *i*  *i*  *i*  *»*  ****  ' 

/»•*  /^  /"i  f~i  r^  *•*  v'^  »'*  y<  »'»  v'-  *'*  hi*  »'*  »<*  »**  *'*  *•*  V*  *'*  *'*  »<*  »■*  »'»  »*^  V*  >■*  **■*  ■*'*  *•*'  s**  »**  *'*  *'*  ***  *'*  »'*  *'*  V*  ***  *'*  '•'*  *'*  »'*  W  *'*  *'*  *'*  *'*  ***  ■~l*  *'*  *■'■*  *'*  *'*  ***  ***  *''  / 
*,*  ^  •   r   i  ***  ''','  **N  '*  **  '*  *'*  *'''  ''"*  *•   '*  *^  ***  '^  *•*  *'*  '^  *■*  *'1*  *'*  '*  **  *''"*  **  **"*  **  '*"*  *l*  **  *'*  *•*  *'**  *"'*  '*  ***  *•**  *'*  **  *,%  ^*  *'*  "''*  ***  ^*  f   ***  *'*"  *•*  *"^  T*  *^  ",m  'i*  / 

L2$M0DULE:    DO  J 


/ii  *!*  ill  il*  aif  ;'i  y*  i'c  V*  s'c  i'i  5'*  a!*  *'*  s!r  a-'*  aJc  ***  ***  "te  is  *V  a!i  -V  v-  >'-  i  Jf  *'-  *••'  y-  °*  *•*  v*  *"•*  *!r  A  -V  V-  ate  Vr  *.'*  ***  y*  ***  *•*-  v*  *•*  *•*  *■•*  i1*  v*  ***  *'*  V>  *'*  **•  *'"    / 
n*  *r  i*  i"  *r  *«*  *v*  *r  ***  *r  *V  ^t-  n*1  *i*  *r  JiH  v  *p  *i*  v  *i"  vt  v  ¥  *p  if*  *r-  *r  'i*  *r  T  *i%  *p  t*  i*  ?r  i5,  ^  *r  *r  *g*  ^>  i"i'  ^  >r  ^  i'  T  t  t*  T"i»  ¥  r  '(*  f  / 

/*•*  ^'»  «•*  «'  »'^  *•*  »•>  ***  >**  ***  *>^  .'^  %*»  ••»  oj  »»^  »*,»  »•#  »t^  »»^  »•.  ^». ,«.,  »»#  ^i,  ^i,  y#  ju  oj  o-  ^,  «•*  v*  y*  v*  v*  *•*  v*  Vr  ***  *•*  "'*  >v  ^**  y*  v-  ■•'*  *t*  ^**  ***  *'*■  •**  *•*  •>**  y*  y*  *■*  y*    / 
*»"■  '4*  'i*  'f  *■*  ^  '*"*  *^  '»*  *t*  *«*  *  r  'r  *4"  *i*  *(s  *i%  *»■*  *»*  *»*  '.^  *i*  *i*  -i*  '(*  *f*  *c  "1*  '»*  'i11  *i*  i*  *t*  ^*  '►"  ■?  "<*  '•   'i    *t*  *>x  't*  *v  *•*  ^    •*  '•*  *t"  ^*  *>*  t*  ***  *f*  *i*  *?  **"  **%  ^*   / 

/*    LOCAL    DECLARATIONS  */ 
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DECLARE 

MAX$C?U  LITERALLY  '10', 

MAX$V?S$C?U  LITERALLY  '12', 

MAX$C?U$$$!?MAX$V?S$CPU    LITERALLY  '100', 

FALSE  LITERALLY  '0', 

HEADY  LITERALLY  '1 ' , 

RUNNING  LITERALLY  '3', 

WAITING  LITERALLY  '? ' , 

TRUE  LITERALLY  '119', 

NOT$FOUND  LITERALLY  '255', 

PORTSCA  LITERALLY  '00CAH', 

RESET  LITERALLY  '0', 

INT$RETURM  LITE? ALLY  '77K'; 

/»**  /^  rt  /-»  /■*  »•>  «'»  *t*  *c  v  ■  ■••*  »'»  »>*  »i*  »•*  »*»  »'*  »•*  »>*  ***  »*<•  *i*»»*  »»*  »y  *'*  »•*  »**  »**  »**  *•*  »**  o*  »**  o*  *t*  »•»  ***  o*  j*  %**  »'*  o*  *•>  -.'-  »**  »•*  %'*  »'»  %i*  «i«  ,,1*  »i*  ki,  %i»  %»,  »i*  ^i,  / 
J(%   /q  (^  ^1  t—  ^^*  »■,*  *,*  »,-  #,%  »|^  *■,«■  #,»  *(»  ^»  *]■•  »|»  *|»  *|»  #|^  *,*  *|»  «,»  •>(-  »|*  *j»  »g*  *,»  »,-  *,«•  *|^  ^i*  *,-  *,»  ^»  >|*  ^j»  »j»  *|»  *|*  >(»  »i"»  *|*  *_»  •'i*  *j»  *,  ■  *|»  >|*  *(-  *|*  *(•  *",«»  #,•  »|«  *,■»  «-|*  *,%  / 

/*   PROCESS OK   DATA    SEGMENT    TABLE  */ 

/*  DECLARED    PUBLIC    IN    MODULE    'Ll^MODULE'  */ 

/*  IN    FILE         'LEVEL1         '  */ 

DECLARE    PRDS    STRUCTURE 

(C?U$ NUMBER  BYTE, 

VP$START  BYTE, 

VP$END  3YTE, 

VPS$PER$CPU  BYTE, 

LAST$RUN  BYTE, 

COUNTER  WORD)  EXTERNAL? 

/»'*  f*  *     f%  ^\  ^v  s'*  0>  %•»  if*  */*  »**  V*  ***  V»  V*  *V  V*  *•**  V-  V*  ^**  ***  V*  *?+   >**  ***  *'-  J-*  **•*  V*  ***  V*  V*  »V  V*  ***  ***  V*  "»V  •**  *'-*  *'*'  V*  V*  *V  »'*  ***  ***  *'*  *^"  »V  '»'*  *•*  ***  V*  •*•  »**■  / 
IJ  1  '/J  y  '         *  *  ^*  *  '**  *'*  *'*  *r*  *r  1*  T  T  T  V  T  1'  / 

/*    GLOBAL   TATA    BASE    DECLARATIONS  */ 

/*  DECLARED   PUBLIC    IN    FILE       'GLOBAL. SRC'  */ 

/*  IN    MODULE  'GL0BAL$M0DULE'  */ 


DECLARE    VPM(    M.AX$CPU$$  $$MAX$  V?S$CPU    )    STRUCTURE 

(VPSID  BYTE, 

STATE  BYTE, 

VP$PRIORITY  BYTE, 

EVC$THREAD  BYTE, 

EVC$AW$VALUE  WORD, 

SP$REG  WORD, 

SS$REG  WORD)  EXTERNAL; 

DECLARE 

EVENTS  BYTE  EXTERNAL; 

DECLARE    EVC$TBL    (100)    STRUCTURE 

(EVCSNAME  BYTE, 

VALUE  WORD, 

THREAD  BYTE)  EXTERNAL? 

DECLARE 
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SEQUENCERS 


BYTF 


EXTERNAL; 


DECLAF.F  SFO$T.iBLE  (100)  STRUCTURE 

(SEQ$NAME  BYTE, 

SEO$  VALUE  WORD 


external; 


DECLARE 

NR$V?S(  MAX5CPU  )  BYTE 

NR$RPS  EYTE 

HDW$INT$FL*G  (MAX$C?U  )BYTE 

GLOBAL^LOCK  BYTF 


EXTERNAL, 
EXTERNAL, 
EXTERNAL, 

EXTERNAL; 


/  ~r*  M  "1    Rfi^*  *l* *fi  'p ^P  *l*^!*  %& Xfi  *r*  *»*  ***  *V*  •?•  •%»  5,*  *ip  V  *  5^  *^  V  ?1*  3**  *»*  %■  *>*■  5,t  »p  5,4  #,*  Jp  3J*>  J|S  5J?  5jC  J,-.  ^  5,*  >,*  5{*,  *,C  5ji  *,<  J,S  J,i 

/*  DECLARATION  OE  EXTERNAL  PROCEDURE  REFERENCES 

/*     DECLARED  PUBLIC  IN  FILE   'LEVEL1.SRC 

/*  IN  MODULE  'LEVELl$MODULE' 


:*/ 

*/ 
*/ 
*/ 


VPSCHEDULER:   PROCEDURE  EXTERNAL;  END; 
IN  FILE  'SCHED.ASM'  */ 


FFT$V? 


PROCEDURE  BYTE  EXTERNAL;  END; 


iocate$fvc  :   procedure  ( fvent$name )  byte  external; 

declare  fvent$name  byte; 
end; 

locate$seq  :   procedure  (seo$name)  byte  external; 

declare  seq$name  byte; 
end; 

/»'*  /■»  -A      r*i    i«"\  »**  »**  *#-•  \'/  *.**   «V  *A*    »'*  »'<■  »'*  *•#  *t^  »l*  *'.»  •,<*  «,'  *  »*»  %>*  *'*  *JU»  •.'*  -J*  *'■*  ■•»'*  \1.*  »'*  ">**  **•"  »'•*  *'*  »'*  *,'*  **■*  ***  ^^  V*  ">**  *>■'*  ***  **■*  »''■  »'*  *''  »*i*  *■**  **■*  *'*  »'■»  »**  »**  •>**  V*  "■,*   / 
if  (A    I  *^  L^  *»»  »|*  *i  •  f  *p  *V»  *t*  *»*  *i*  *T"  rC    •*!*  *l*  *i"  *V*     i*   *i*  *V*  *i*  *t*   *t*  'i*  *l*  *i%  *r   *l*  *•  *•*  ******  ""iv  *»*  T*  *l"  *i*  "f"  *I*  *(*  *"i*  *»■*  '»""  "1*  tt  ""l*  *(*  *l*  *1*  *i*  *!"*  *|*  •'t'*  *t*  *»*  / 

/*  DIAGNOSTIC  MESSAGES  (WILL  EVENTUALLY  3E  REMOVED)        */ 


/*> 

"*  MXTRACE  ***- 

e*  MXTRACE  *****  MXTRACE  *****  ^XTRACE  ***/ 

/**>.;  f^XTRJCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  *** / 

/* 

DECLARE 

/* 

MSG16(*] 

EYTE 

INITIALl  'ENTERING 

PREEMPT', 13. 13, '%') , 

/* 

MS(J17{*] 

BYTE 

INITIAL(  'ISSUING 

INTERRUPT! !  ',13,10,  '%'), 

/* 

MSG18(*; 

BYTF 

INITIAL  (  'ENTEFING 

AWAIT ',12, 13, '%'), 

/* 

MSG19(*] 

BYTF 

INITIALC  'ENTERING 

ADVANCE  ',19,13,  '% ' ) , 

/* 

MS521(* : 

3YTE 

INITIAL!  'ENTERING 

CREATE$EVC  FOR  %') , 

/* 

MSG2  2^C' 

)  BYTF 

INITIAL! 'ENTERING 

READ  FOP  EVC:   $  ') , 

/* 

MSG24(*' 

BYTE 

INITIAL!  'ENTERING 

TICKET',  13, 10,  '%')  , 

/* 

MSG25(* 

)  BYTE 

INITIAL! 'ENTEFING 

CREATE$SEO   %'), 

/* 

MSG26(*; 

I  EYTE 

INITIAL!  'ENTERING 

CREATESPROC',10,13, '%'), 

/* 

I  EYTE 

INITIALU0,  'ENTERING   GATE-KEEPER   N=%')J 

/*  DFCLARF 

/::<     CR  LITERALLY 

/*     LF  LITERALLY 


'0DH', 

'0AH 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
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/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 


7^  (/    J    n    LJ  Jjt  *,t  *,»  *,»  »,»  *y  *i»  *f»  *i»  *(»  *|*  ?f»  *(»  ^,*  J^  *f«  -i1-  'r  »i*  •»»  *#*  *p  *tx  *i*  n*  *p  1*  *."  *t**C  1*  **•  *i*  *t*  V  *<*  *P  *•*  '»"  *i*  *p  *i*  *i*  1"  *I*  *P  *"i*  "«v  *"i*  *T*  ***  *i*  *."   / 

-(-     -  ,-  7p    *,".  *,»   *,*    >,»  *,t  .»,<■,    3j»  *(*   *,"■    *tf»  3(5    *,"»  P#t    *,*  *,%   *,*    ^»   *,*i    -,~   -^-     *■,»    *,■<■    *|»  *^*    J,*    *^»  «",!.    *J*   ^i  «y»  >,<•   »,-   #|S  J|*    *Y»   >(»   >,*   »,«■  *J*  *|»    *)*    *,-    *(*  *,*   *|*   *(^    rf\  #|>.    ^,-   ^,-    ^p.    --f.     n-    ^,-     *,-.       / 

/**      GATE-KEEPER         PROCEDURE  ROWE   6-22-54   ****/ 

/•jj  *•»  v  V*  *'-  \'M  V*  Vr  *'•  *'■'  *''  V*  •''*  ^'^  *'f  ■»'*'  V*  ^V  ***  **f  ^'i*  ^V  ***  "■'*  "•'*  *'*  ^'*  ***  V*  ***  ^**  V*  V*  V*  ***  ***  *^f  ^^  *'*  *'*  V'  ***  sV  V-  *V  *■''  VV  *■'•'  ***  V*  *V  *V  V*  »•*  ^V  V*  *'*  **'     / 
7,1     0g*  J,>    J,-   *,-    J,-    >|«    J(t    •",»■    -,-    »|»    -,-     •*■■«   *",»    ',v    ^,-    J,>   •*,t    *,»    <-|»    ■-,-     "f-   *!"•     ',■>    •','■    7p    J,'    ',•    P,«  'l*    «*!■»    -',''    /|>    ',»    *[■*    r^    ']•■    ^(*    »|-    *,""    J|*   ^|»  ',■•     ^,-    *,*■    *,•*   'l1-     »!■»    «|->    >!-«■    ■•(»     <t^   *-)^    *^S  #)^    *Y~    •*!"    H5       / 

/*  THIS    PROCEDURE    IS    THE    ENTRY    INTO    THE    OPERATING  */ 

/*  SYSTEM    DOM* IN    FROM    THE    USER    DOMAIN.      THIS    IS    THE  */ 

/*  ACCESS    POINT    TO    THE   UTILITY/SERVICE   ROUTINES    AVAIL-  */ 

/*  ABLE    TO    THE    USER.    THIS    PROCEDURE    IS    CALLED    BY    THE  */ 

/*  GATE   MODULE    WHICH    IS    LINKED    WITH    THE    USER    PROGRAM.  */ 

/*  IT    IS    THE    GATE   MODULE   WHICH    PROVIDES    TRANSLATION  */ 

/*  FROM    THE    USER    DFSIRED    FUNCTION    TO    THE   FORMAT    RECUIR-  */ 

/*  ED    FOR    THE   GATEKEEPER.      THE    GATEKEEPER    CALLS    THE  */ 

/*  DESIR5D    UTILITY/SERVICE    PROCEDURE    IN    LEVEL2    OF    THE  */ 

/*  OPERATING    SYSTEM    AGAIN    PERFORMING    THE    NECESSARY  */ 

./*  TRANSLATION    FOR    A    PROPER    CALL.       THE    TRANSLATIONS    ARE  */ 

/*  INVISIBLE    TO    THE    USER.      THE    GATEKEEPER    ADDRESS    IS  */ 

/*  PROVIDED    TO    THE    GATE    MODULE    TO    RE    USED   FOR    THE    IN-  */ 

/*  DIRECT    CaLL.  */ 

/*  */ 

/*  THE    PARAMETER    LIST    IS    PROVIDED    FOR    CONVENIENCE  AND           */ 

/*  REPRESENTS    NO   FIXED   MFANING,    EXCEPT    FOR    'N'.  */ 

/*             N                FUNCTION    CODE    PROVIDED    BY    GATE  */ 

/*             BYT           BYTE    VARIABLE    FOR    TRANSLATION  */ 

/*             WORDS      WORD  */ 

/*              PTK            POINTER    VARIABLE   FOR    TRANSLATION  */ 

'r  [A  j/  £x.    *>  H*  nr  *|*  *»*  *H"*  *t*  *K*  *C*  *p  1*  *i*  *i*  *»"*  *i*  A*  *(•  *V  t*  *i*  *i*  'i"*  t*  *i*  *i*  *T"  *p  *i*  *i*  *•*  n*  •"I*  *i*  *»*  *T*  *P  n*  I*  *i*  *i*  "i"  *P  *t*  'O  't*  *i*  1*  A*  *l*  *j"*  *l*  *P  *l*  ***  * 

GATE$KEEPER:    ?ROCEDURE(Nf    BYT,    WORDS,    PTR )    REENTRANT    PUBLIC; 

DECLARE 

(N,    BYT)    BYTF, 
WORDS    WORD, 

PTR  pointer; 

/*    1-0    SERVICES    ARE    NOT    ACKNOWLEDGED    FOR    TWO    REASONS:  */ 

/*  1.      THEY   ARE    CALLED    SO    OFTEN    THAT    DIAGNOSTIC    OUTPUT  */ 

/*  WOULD    BE    TOO    CLUTTERED.  */ 

/*  2.       THEY    THEMSELVES    PRODUCES    I -0    EFFECTS    THAT  */ 

/*  ACKNOWLEDGE    THEY    ARE    BEING    CALLED.  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
8   THEN    DO; 

0UT$LINE(G>MSG27); 

OUT$NUM(N) 5 

OUT$CHAR(CR); 

OUT$CHAP(LF); 

/***    MXTRACE    *****    MXTRACE   *****    MXTRACE    *****    MXTRACE    ***/ 
/***    MXTRACE    *****   MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 
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/* 

IF    N    < 

/* 

C'LL 

/* 

CALL 

/* 

CALL 

/* 

CALL 

/* 

end; 

DO   CASE   m; 

/* 

N 

-1-  / 

C3LL    *WAIT (BYT, WORDS ) ; 

/* 

e 

*/ 

CALL    ADVANCE (BYT); 

/* 

1 

*/ 

CALL    C:-:EA.TE$irVC(BYT)  ; 

/* 

2 

*/ 

C*LL    CEE.ATE$SEQ(BYT); 

/* 

^ 

o 

*/ 

CALL    TICKET  (?-YT,PTR)  ; 

/* 

4 

*/ 

CALL    READ(BYT,PTR); 

/* 

5 

*/ 

CALL    CREATE$PEOC(PTR); 

/* 

6 

*/ 

CALL    PREEMPT(    EYT    )J 

/* 

? 

•/ 

/  »v  *■*'  *•' 
/  '{  ->-  '1- 

MXTRACE    *****    MXTRACE    ** 

J.  v*<  %«- 

t  *»**  *r 

Mxr 

UCE 

V  ;,s  i,i  ;^  *,< 

MXTRACE 

***/ 

/#*# 

MX TRACE    *****    MXTRACE    ** 

Jb  •*-  Vf 
nr*  *r  *t* 

MXTRACE 

*X>  y*  V*  *•*■  *'' 
***  n*  *r*  *rn* 

MXTRACE 

<fc  "rh*   / 

/* 

CALL    OUT$CEAR(BYT)  J 

/* 

S 

*/ 

/* 

CALL    OUT^LINE(PTR); 

/* 

9 

*/ 

/* 

CALL    OUT$NUM(BYT); 

/* 

10 

*/ 

/* 

CALL    OUT$DNUM(WORDS); 

/* 

11 

*/ 

/* 

CALL    IN$CFAR(PTR); 

/* 

12 

*/ 

/* 

CALL    IN$NUM(?TE); 

/* 

13 

*/ 

/* 

CALL    INiDNUM(PTE); 

/* 

14 

*/ 

/*** 

MXTRACE    *****    MXTRACE    ** 

agcaScsp 

MXTRACE 

*J*  *J*  *i*  *■>  V* 

^  if*  *r  *v  n* 

MXTRACE 

$#«  / 

/*** 

MXTRACE    *****    MXTRACE    ** 

•b  »'-  *J> 

1'  t  *r» 

MXTRACE 

*i*  *i-  *i*  *p  *»* 

MXTRACE 

*•*  4#  .**  / 
*,»  *,-  ^*  / 

end;       /*  case  */ 

return; 

end; 

/*    GATE-KEEPER    */ 

/»V  /"Y  r-?  /T  P"  *•**  %'••  V*  V-  *-**  •»*'  *^*  ■"•  **»  ^'^  *'*  V*  *h^  V<  **—  »V  V*  *V  *•*  »V  ^**  ^V  ***  *•'*  V*  W^  *V  s*^  >**  *•'*  V*  s'*  V*  *'<*  s*/  *'■*  »v*  **■*  »>'<*  *-'*  >V  *-'•*  V*  *•**  V»  »'.»  »»■*»'.•  o*  v*  »J^  »•*  »V   / 
»i*  (/i  «.  i  /,  w-,  *|»  *p  ^»  «|p  *(»  *,»  ^r*  *j»  *^»  >,»  *p  ^p  ^^  >^  *y*  'tr  *»■*  *k*  *i*  W*  *j*  *»*  *i*  *i">  *^  nf*  *i*  *S*  *l*  1*  *p  *ix  *p  *l*  *o  *i*  *r"  'i*  *«*  1*  *p  *i*  Tf*  *>*  n(*  *i  *i*  *i*  1*  *>■*  'i*  'i*  *^  / 

/*      CREATE$EVC      PROCEDURE                                                   ROWE    6-22-34    */ 
/* */ 

/*    CREATES    EVENTCOUNT    FOR    INTER-PROCESS    SYNCHRONIZATION.       */ 
/*    EVENTCOUNT    IS    INITIALIZED    TO    0    IN    TFE    EVENTCOUNT    TABLE.-/ 

/j;ej^j|;  £  i]< s[! >;c  s(<  #  sj;  ^e>J:  sjt  i^  ■%  >;c ;;« 5^  3^  ^c >^  j;; sj:  ;|i i,:  >'< if  if  ^; i'fi if  i\i ;^  sf: s'.i  sj; 5^  >;:  jj; ifi  i£ t,i i\:  %ti\:#?{?r  'fi%ii&^*fVfiir~r*r'%  / 

CREATE$EVCt    PROCEDURE( NAME )    REENTRANT    PUBLIC; 


DECLARE    NAME    BYTE; 

/***    MXTRACE    *****    MXTRACE    ***** 

/***    MXTRACE    s.;*'!£*s'-    MXTRACE   *'!J:,tt;!:* 

/*    CALL    0UT$LINE(C^MSG21)  ; 

/*   CALL    OUT$NUM(NAME); 

/*    CALL    CUT$CHA?(CR); 

/*    CALL    OUTSCHAR(LE); 

/***    MXTRACE    *****    MXTRACE    ***** 

/***    MXTRACE    *****    MXTRACE    ***** 


MXTRACE    *****    MXTRACE    ***/ 
MXTRACE    *****    MXTRACE    ***/ 


MXTRACE    *****    MXTRACE    ***/ 
MXTRACE    *****    MXTRACE    ***/ 


/*    ASSERT    GLOBAL    LOCK    */ 

DC    WHILE    L0CKSET((?GL0BAL$LCCK,119);    END? 


IF   /*   THE    EVENTCOUNT    DOES    NOT    ALREADY    EXIST    */ 
LOCATE$EVC (NAME)    =    NOT$EOUND   THEN    DO? 
/*    CREATE    THE    EVENTCOUNT    ENTRY    BY    ADDING    THE 
/*    NEW    EVENTCOUNT    TO    THE    END    CE    THE    EVC$TABLE 
EVC$TBL (EVENTS) .EVC$NAME    =    NAME; 
EVC^TBL(EVENTS) .VALUE    =   ? \ 
EVC$TPL (EVENTS) .THREAD    =    255; 


*/ 
*/ 
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/*  increment  the  size  of  the  evc<table  */ 

events  =  events  *  1! 
end;  /*  create  the  eventcount  */ 
/*  release  the  global  lock  */ 
globalslcck  =  05 

return; 
end,'  /*  create$evc  procedure  */ 


/,,«..  fm  *y   r"  ^  W*  *V  V*  *■**  W  *''  *V  *''•  V^*  ***  V*  *ft  V*  ***  **V  *'*  V*  V-  V*  *V  *•■*  i^*  V*  **'  ■***  V*  *■**  V'  V*  *V  V-  V*  ^V  *'*  ***  *'*  ***  ***  ***  *■**  ■"'•»  "'*  V*  ***  V*  V*  *'*  »**  V*  ***  **•  ***  •»**    / 
iM/   -s  K  (-,  5?  Is  V  *,*  *f-  t  -r  *r  *r  *i-  n-  *r  t  *r  *i-  »»•  tttttt  A*  *P  *r  *v*  f  n*  *r  *>^  Vr  n*  *i*  *r  *p  -v  *r  *r  *i*  *(*  *»'  J»*  *p  *i"  *i»  *r  *"r  n*  »r  *Y*  *i*  *fi  / 

/*    HEAD  PROCEDURE                         ROWE  6-22-84   */ 
/* */ 

/*  THIS  PROCEDURE  ALLOWS  USERS  TO  READ  THE  PRESENT  VALUE   */ 

/*  OE  THE  SPECIFIED  EVENT$COUNT  WITHOUT  MAKING  ANY  */ 

/*  CHANGES.   £  POINTER  IS  PASSED  TO  PROVIDE  A  BASE  TO  A    */ 

/*  VARIABLE  IN  THE  CALLING  ROUTINE  FOH  PASSING  THE  RETURN  */ 

./*  VALUE  EACK  TO  THE  CALLING  ROUTINE.  */ 

/*t*  jl  -.•*  .,•-  %**  »r-  *•'  »'*  *f*  »•»  V'  **»  ■>'*  v*  *v  %•*  v*^**  *j*  "»v  *'- v*  ^-*  ***  «*v  ***  »**  «j*  »**  v*  j*  *r*  it*  %**  v*  v*  •**  v*  V'  v*  *'*  ***  ***■*  *-*■*  V"  v*  -'-  v*  *v  •*'*  v*  ***»v  *■*  iftf  ■***  ***  *'*  y 
,,»  -,-  t   3,-  *|*  *,-  <y>  *,■*  *j".  -p  j,»  *•,<•  -,*  y^  «*,s  *,*  *,*.  *,*  »,»  ^,t  *,*  jp  ?j*  *,■»  *js  *•,»  *,i  »|-*  *-,»  j|-  *,i  *,%  *p  *!*■  **.  ^p  *,-.  *,*  *|>.  *i,~  *^  *,-  *f»  i*  *i*  *i*  'i*  *p  *n  'i^nr  *»**»*  *(*  t*  *r*  T"  *t*  / 

READ:   PROCEDURE*  EVC$NAME,  RETS$PTU  )  PEENTRAMT  PUBLIC? 

DECLARE 

EVC$NAME  BYTE, 

EVCTBL$ INDEX  BYTE, 

RETS$PTR  POINTER, 

EVC$VALUE5RET  BASED  RETS$PTR  WORD; 

/*   SET  THE  GLOBAL  LOCK   */ 

DO  WHILE  LOCKSET(PGL0BAL$L0CK.119);   END; 

/***  M3TTRACE  *****  MXTRACE  *****    MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CALL  CUT$LINE(?MSG23) ; 

/*  CALL  OUT$MUM(EVC$NAME); 

/*  CALL  OUT$CHAR(CR)? 

/*  CALL  OUT$CHAR(LE)J 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*   OBTAIN  INDEX   */ 

EVCTBL$INDEX  =  LOCATE$EVC(  EVC$NAME  )? 

/*   OBTAIN  VALUE   */ 

EVC$VALUE$RET  =  EVC$TBL(  EVCTBL$INEEX  ). VALUE; 

./*   UNLOCK  GLOBAL  LOCK   */ 
GLOBAL^LOCK  =  0  ; 
R  F  T  U  R  N  * 
END;    /*   READ  PROCEDURE   */  ' 


/* 04 12* ***************************************** ***********/ 
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/*    AWAIT  PROCEDURE  */ 

/* */ 

/*  INTER  PROCESS  SYNCHRONIZATION  PRIMITIVE.  SUSPENDS  */ 
/*  EXECUTION  OF  RUNNING  PROCESS  UNTIL  THE  SVENTCOUNT  HAS  */ 
/*  REACHED  THE  SPECIFIED  THRESHOLD  VALUE,  " AW* ITED$V *LUE  .  "*  / 
/*  USED  BY  THE  OPERATING  SYSTEM  FOR  THE  MANAGEMENT  OF  */ 
/*  SYSTEM  RESOURCES .  */ 

/  3p3p'P#i,«r'r***il*'^'»*  1*  *?  ^r  nr  *r  ^r  n*  *£  ~r  *fc %*  *S*  *t*  3J*  3"F  ^r  5p  *r  *fi  *i*  *r  *i*  *  t*  t*  *r  V  *r  ^r  o*  *r  n*  n*  V  V  *p  ir  *r  *i*  *r  nt  *i"  *P  *r  Tn£  / 

AWAIT:  PROCEDURE ( EVC$ID , AWAITED$VALUE )  REENTRANT  PUBLIC i 

DECLARE 

AWAITED$VALUE      WORD, 
(EVCSID,  NEEDSSCHED,  RUNNING$ V?,EVCTEL$I NDEX)  BYTE; 

/#**  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  CALL  0UT$LINE(GMSG13); 

/***  MXTRA.CF  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  LOCK  GLOBAL  LOCK  */ 

DO  WHILE  LOCK$SET(0GLOBAL$LOCK,  119);   END; 

N£ED$SCHED  =  TRUE; 

/*   DETERMINE  THE  RUNNING  VIRTUAL  PROCESSOR   */ 
RUNNING$V?  =  RETSVP; 

/*   GET  EVC  INDEX   */ 

FVCTBL^INDEX  =  LOCATE$EVC ( EVC $ID ) ; 

/*  DETERMINF  IF  CURRENT  VALUE  IS  LESS  THAN  T'^E 

AWAITED  VALUE  */ 
IF  EVC$TBL(EVCTBL$I NDEX) .VALUE  <  AW AITED^VALUE  THEN  DC; 

/*  BLOCK  PROCESS  */ 

VPM(RUNNING$VP) . EVC$THREAD=EVC$TBL ( EVCTBL$ I NDEX ) .THREAD; 

VPM(RUNNING$VP) . EVC$AW$ VALUE  =  AWAITED^V A LUE; 

EVC£TBL(  EVCT3L$INDEX  ) .THREAD  =  RUNNING$V?J 

DISABLE; 

prds.last$run  =  running$vpj 
vpm(running$vp). state  =  waiting? 
end!    /*  block  process  */ 

else  /*  do  not  block  process  */ 
need$sched  =  false; 

/*  schedule  tee  virtual  processor  */ 
if  need$sched  =  true  then 

call  vpscheduler;      /*  no  return  */ 

'/*  unlock  global  lock  */ 
global$lock  =  0; 

return; 
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END?         /*    AWAIT    PROCEDURE    */ 


/sfcp^g 2** ****************************************** *********/ 

/*           ADVANCE         PROCEDURE                                              ROWE    6-22-84         */ 
/# #/ 

/*      INTER    PROCESS    SYNCHRONIZATION    PRIMITIVE.       INDICATES         */ 

/*      SPECIFIED    EVENT   HAS    OCCURFED    BY    ADVANCING/INCREMENTING*/ 

/*      THE    ASSOCIATED    EVENTCCUNT.      EVENT    IS    BROADCAST    TO    ALL    */ 

/*      VIRTUAL    PROCESSORS    AWAITING    THAT    EVENT.  */ 

/* */ 

/*      CALLS    MADE   TO:      CUT$LINE  */ 

/*  VPSCEEDULEF;     (NO    RETURN)  */ 

/J.  o,  ul*  ■*>*■  *i^  *•'  •**  »**  **'  *V  V*  ^^  ***  V*  V_?  **f  ***  *?f  "rf*  V*  **•*  Vi*  "^*  ^**  »A»  ***  ***  V*  »'*  v*  V»  ***  ***  V*  *'*  »**  *V  V*  V'  ***  V*  V*  T^  ^*  V*  *V  ***  *■"*  ***  ***  V*  *V  V*  *V  Vr  V-»  V*  *'*  / 
t*  n5  *i*  *r  V  n-  *v  *r  *r  't*  *r  V  *r  *r  n-  *r  t*  *F  n*  *r  -r  *?*  *r  ^  t  *r  *r  n*  -v*  *i-  7r  *r  *r  ^r  *r  *r  n*  ^  ^r  t*  *i*  *r  *r-  t1*  *p  *r  1*  t  *r  V  ¥V¥  t  'p  t  T  / 

ADVANCE:    PROCEDU  RS(  EVC^ID)    REENTRANT    PUBLIC? 

t\ tt p T  jor 
"(EVCSID,    NEEr$SCHEDt    NEED$INTR,    SVCTEL$INDEX )    BYTE, 
(SAVE,    RUNNING^VP,    I,    CPU)  BYTE; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  VXTRACE  ***/ 
/**#  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*   CALL    0UT$LINE(@MSG19) ; 

/***  MXTPACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 


/*    LOCK    THE   GLOBAL    LOCK    */ 

DO    WHILE    LOCKSET(OGLOBAL$LOCK  ,119)  ;      EN 


~l   1 


RUNNINGS?    =    RET$VPJ 

EVCTBLSINDEX    =    LOCATE$EVC ( EV C$ID) ; 

EVC$TBL(EVCTBL$INDEX) . VALUE=EVC$TBL (EVCTBL$I NDEX ) .VALUE    +    15 

NEED$3CHED    =    FALSE; 

NEED5INTR    =    FALSE; 

SAVE    =    255; 

i  =  evc£tbl(  evctbl$index   ). thread; 

DO   WHILE      I    <>    255; 

IF    VPM( I ) .EVC$AW$VALUE    <=    EVC$T3L (EVCTBL$I NDEX ). VALUE 
TEEN    DO;/*    AWAKEN    THE    PROCESS    */ 
VPM( I )  .STATE    =    READY; 
VPM(  I).EVC$AW$VALUE    =   0? 
CPU    =    I    /   MAX$VPS$CPU    ; 
IF    SAVE   =   255    THEN    DO;    /*THIS    FIRST    ONE    IN    LIST*/ 

EVC$TBL(FVCTBL$INDEX)  .  THREAD=VPM  ( I  )  .  EVC$TH?.EAD; 

VPM(    I     ).EVC$THREAD    =    255; 

I    =    EVC$TBL(    EVCTBLSINDEX    ). THREAD? 

END?       /*    IF    FIRST    */ 
ELSE    DO;/*   THEN    THIS    NOT    FIRST    IN    LIST    */ 

VPM(    SAVE    ).E?C$THREAD    =    VPM(     I    ) . SVCSTHRSAD J 

VPM(    I    ).EVC$THREAD    =    255; 

I   =   VPM(   SAVE    ) .evc$thread; 
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end;  /*  if  nct  first  */ 

if  (  cpu  <>  prds .cpu$ number  )  then  do; 

hdw$int$flag(  cpu  )  =  true; 

need$intr  =  t?ue; 

end; 
else  need$sched  =  true; 
end;    /*  if  awaken  */ 
else  do?/*  do  not  awaken  this  process  */ 
SAVE  =  i; 

i  =  vpm(  i  ).evc$teread; 

END;/*  IF  NOT  AWAKEN  */ 

END?/*  DC  WHILE  */ 

IF  NEEDSINTR  =  TRUE     THEN  DO;   /*  HARDWARE  INTF  */ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  VXTRACE  *****  MXTRACE  ***/ 
/*     CALL  OUT$LINE(  GMSG17  ); 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

disable; 

OUTPUT(PCRT$CA)  =   80H; 
CALL  T I  ME ( 1 ) ; 

output(port$ca)  =  reset; 
enable; 
end?  /*  need$intr  */ 

if  need$sched  =  true  then  do; 
disable; 

prds.l£st$run  =  runnings?; 
vpm(runni.ng$vp)  .state  =  ready; 
call  vpschedulerj  /*  no  return  */ 

end;  /*  if  needssched  */ 
/*  unlock  tfe  global  lock  */ 
globalslock  =  0; 
return; 
end;  /*  advance  procedure  */ 

/*i^  /^  w—   **\  j\    -jr  *.t*  +*„  *f+  j/  *',  »i^  »i*  ^t,  »,t»  +}„  %i-  „t,  ,j„  »»,  -i,  jj  ju  *\,  ou  *>*  ***  V'  *•'»  »'*  ***  *■'•*  V*  V*  ***  V*  ****  ***  *'*  »'*  *'*  **'  **■*  *'*  ^t  *'*  ***  *'e  *'*  -'*  ***  **-  **i  *'"  V*  *!f  ^!*  ***  / 

/*   PREEMPT  PROCEDURE                        RCWE  6-22-£4   */ 
/* */ 

/*  THIS  PROCEDURE  H.WA5ENS  A  HI  PRIORITY  PROCESS  LEAVING  */ 

/*  THE  CURRENT  RUNNING  PROCESS  IN  THE   READY  STATE  AND  */ 

/*  CALLS  FOR  A  RESCHEDULING.   THE  HIGH  PRIORITY  PROCESS  */ 

/*  SHOULD  ELOCK  ITSELF  WHEN  FINISHED.  */ 

/*    IF  THE  V?$ID  IS  'FE'  OR  TEE  MONITOR  PROCESS,  IT  WILL  */ 

/*  MAE!  IT  RESDY  WHEREVER  IT  IS  IN  THE  VPM.   THE  FOLLOW-  */ 

/*  ING  CODE  DOES  NOT  TAKE  ADVANTAGE  OF  THE  FACT  THAT  */ 

/*  CURRENTLY  IT  IS  THE  THIRD  ENTRY  IN  THE  VPM  FOR  EACH  */ 

/*  REAL  PROCE5SOF.  •*/ 

/* */ 

/*  CALLS  MADE  TO:   OUTLINE,  VPSCHEDULER  */ 

/■*)*  %'«•  *•*  »**  V<  •***  *tf  *V  Jl#  V*  *J*  *f~  »V  m$0  O*  »^*  *'*  ^*  >*>  *'#  V*  «**  ***  W*  *'*  »*»  %**  W*  »'*  *A*  O*  «i**  »^»  ***  V*  **»  »'*  *'^  V*  *V  n*^  "i1^  V*  »V  *P+  »'»  ***  »•*  »'*  s**  >'*  **»  V*  *J*  ■*•*  *'*  v>*  >'*     / 
.-|»    #(*  *f»    *,  «  ^»  »j»     *j»    *(••  *f»    ^-»    *jS   ^j»     *tS   *^">   >|^    #|»    ^|«    *,>«    >,■»    >p   ^j1*    -,»  rfji.    ^|»  *!>•    rf*   *j*   *|»  *,»  *j-   Jy»  *|>  ^j*    *,»  ^j1*    »i»   *|»   #|»  *ji   «^»    ^V  *|*  *)•■    ^,*  *|V    -p.    -  _%    <»!*    .  (»    ^t*.   --,~    ^|^   *,%  »(»   >j»    »4»   »(*    >,■•       / 

PREEMPT:   PROCEDURE (  VPS  ID  )  REENTRANT  PUBLIC 
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DECLARE  (V?$ID,SEARCE$ST,SEARCH$END, CPU, INDEX)  BYTE; 


/*** 

/*  c 

/*** 

I 


MXTRACE  *****  MXTRACE  *****  MXTR A 
MXTRACE  *****  MXTRACE  *****  MXTRA 
ALL  OUT$LINE(  GMSG16  )J 
MXTRACE  *****  MXTRACE  *****  MXTRA 
MXTRACE  *****  MXTRACE  *****  MXTRA 
F  VP$ID  <>  0FEH  THEM  DO;  /*  NORMAL 
/*  SFARCH  VPM  FOR  INDEX  *OR  ID   * 
SEARCH$ST  =  d', 
DO  CPU  =  0  TO  (NR$R?S  -  1)J 

SEARCH$END  =  SEARCH5ST  +  NR$V 
SEARCH$ST  TO  SEARC 
INDEX  )  .V?$ID  =  VP 
INDEX  */ 
SEARCH$5T  +  MAX$V 


i*  *r  t 

/  »l,  vU  a», 

/  *r  *r  V 

/* 

*r  *r  n5 

1»  *\  •  -  r 


DO 


INDEX  = 
IF  VPM( 
end;  /*  DO 
SEAP.CH$ST  = 
END;  /*  DO  CPU 
/*  CASE  IF  NOT 
FOUND: 

/*  LOCK  THE 


CE  *****  MXTRACE  ***/ 

C£  *****  MXTRACE  ***/ 

CE  *****  MXTRACE  ***/ 

CE  *****  MXTRACE  ***/ 

PREEMPT  */ 
/ 


ps(  cpu  )  -  l  ; 

h^end; 

sid  then  go  to  found; 

?s$cpu; 


*/ 

FOUND 


IS  NOT  ACCOUNTED  FOR  CURRENTLY  */ 


global  lock  */ 
do  while  l0ck$set(9gl0bal$l0c 
/*  set  preempted  vp  to  ready 
vpm(  index  ). state  =  ready; 
/*  need  hardware  intr  or  re-s 
if  (  cpu  =  prds .cpu$number  ) 

index  =  ret$vp;   /*  deter 

disable; 

prds. l as t$ run  =  index; 

v?m(  index  ). state  =  ready 

call  vpschedulerj   /*  no 

end; 
else  do;/*  cause  hardware  int 
mxtrace  *****  mxtrace  *****  mxtra 
mxtrace  *****  mxtrace  *****  mxtra 

call  out$line(gmsg17); 

MXTRACE  *****  MXTRACE  *****  MXTRA 

mxtrace  *****  mxtrace  *****  mxtra 
hdw<int$flag(  cpu 
disable;  output ( 

CALL  TIME(l); 

output(  port$ca  ) 
end; 

NDi  /*  NORMAL  PREEMPT  */ 
LSE  DO?  /*  PREEMPT  THE  MONITOR  */ 
/*  SEARCH  VPM  FOR  ALL  ID'S  OF  0F 
SEARCH$ST   =  0? 

DO  WHILE  LOCK$SET((?GLOBAL$LOCK,l 
DO  CPU  =  0  TO  (NR$RPS  -  1-)  J 

SEARCH$END  =  SEARCH$ST  +  NR$V 
/*  SET  ALL  INT$FLAGS  EXCEPT  T 
IF  PRDS.CPU$NUMBIR  <>  CPU  THE 


Kfns);  end; 
*/ 

CHED  */ 
THEN  DO; 
MINE  RUNNING  PROCESS  */ 


;   /*  SET  TO  READY  */ 
RETURN  */ 

ERR UP T  */ 

CE  *****  MXTRACE  ***/ 

CE  *****  MXTRACE  ***/ 

C£     ^tsjssfs  sjcajs    MXTRACE     *#*/ 

CE  *****  MXTRACE  ***/ 


)  =  TRUE 
PORT$CA 


)  =  80h; 


=  reset;  enable; 


EH  */ 

19);  end; 


PS(  CPU  ) 
HIS  CPU'S 
N 


-  i; 

*/ 
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HDW$INT$FLAG(  CPU  )  =  TRUE; 
DO  INDEX  =  SEARCH$ST  TO  SEARCESINDJ 
IE  VPM(  INDEX  ).VPSID  =  VP^ID  THEN 
V?M(  INDEX  ).  STATE  =  READY; 
END:  /*  DO  */ 

SEARCHSST  =  SEARCE$ST  +  MAX$VPS$CPUJ 
END;  /*  ALL  MONITOR  PROCESS  SET  TO  READY  */ 
/*  INTERRUPT  THE  OTHER  CPU'S  AND 
RESCHEDULE  THIS  ONE  */ 

/***  MXTPJCE  *****  MXTRfiCE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*     CALL  CUT$LINE(0MSG17); 

/##*  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

disable; 

out?ut(  port$ca  )  =  s0h5 

CALL  TIME(l); 

output (  ports ca  )  =  reset; 

enable; 

index  =  pet^vp; 

D I  S  A  P  LE  * 

?RDS.LAST$RUM  =  INDEX? 
VPM( INDEX) .STATE  =  READY; 
CALL  VPSCHEDULER;   /*  NO  RETURN  */ 
END?  /*  ELSE 

/*  unlock  global  memory  */ 
gl0ea.l$l0ck  =  0; 
return; 
end?   /*  preempt  procedure  */ 


/*>*  r\  r~n   A     A     «-'—  *'*  »''  *'(•  V-*  *■'■'  h.v  Ol>  •.!-  v,"--  x'  -  >'*  •.'*  *.'r  *JU  -o-  -.'—  »v  -J*   *■*■■  >'-  <•*'  *•'-  »'*  *'#  *»'■•  -''  •■'*  ^'*  J*  »'.»  k'»  •.'-  O-  «^*  -.'.■  »'>  ■,**  »'-  «t^  ->-  «,*.»  «f>  »•*  *'.»  *',  »'*■  >'»  Or  -'-  »l<  •.'  •  ••'■*      / 
■^t  *  A    s    \     ]  *»*  1*  "i*  *r*  *v*  1*  ***  *r"  *i-  *x*  *\-  *f*  *i*  T*  nr*  h*  T"r  *S*  **i*  *i**p  *r*  t*  *P  *P  "i*  '*"  *p  *V  *"i*  n*  T*  *i*  'i*  *f  *i*  *»*  'O  *p  i*  **•■•  **p  *K*  "i1-  "i*  *»"*  *i*  *i*  "V*  -i"  *t*  'i-  / 

/*  CREATE$SEO      PROCEDURE  ROVE   6-22-84  */ 

/•> -v 

/*  CREATOR  CE  INTER  PROCESS  SEQUENCER  PRIMITIVES  FOR  OS  Eli  */ 
/*  PROGRAMS.  CFEATES  A  SPECIFIED  SEQUENCER  AND  INITIAL-  */ 
/*    IZES    IT    TO    0,    BY    ADDING    THE    SEQUENCER    TO    THE    END    OF   THE*/ 

/*  SEQUENCER  TABLE.  */ 

/* */ 

/*  CALLS  MADE  TO:   OUT$LINE  OUT$CHAR  */ 

/*  CUT$HEX  */ 

CRFATE$SEQ:  PROC EDURE( NAME)  REENTRANT  PUBLIC; 
DECLARE  NAME  BYTE; 

/*  ASSERT  GLOBAL  LOCK  */ 

DO  WHILE  L0CKSET(G>GL0BA.L$L0CK,119)  ;  END; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*#*  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
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/*  CALL  OUT$LIN2(0MSG25) ; 

/*  CALL  CUT$HEX(NAME)i 

/*  CflLL  OUT$CHA?.(CR)i 

/*  CALL  OUT$CHAR(LF); 

/*##  MXTRACI  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

if  /*  the  sequencer  does  not  already  exist,  ie  */ 

locatesseo(name)  =  not$found  then  do; 

/*  creatf  the  sequencer  entry  by  adding  the  */ 

/*  new  sequencer  to  the  end  of  the  seq$table  */ 

seqstable(sequencers) .seo$name   =  name; 

seq$tarle(sequencers ) .seq$value  =  0? 

/*  increment  number  of  sequencers  */ 

sequencers  =  sequencers  +  1! 
end;  /*  create  the  sequencer  */ 
/*  release  the  gl0b«l  lock  */ 
globalsloce  =  0j 
return; 
end?  /*  creatf^seq  procedure  */ 


/%t^  /■»  fm     ^t     j-*.     ^i.  *J*  «JL>  »l  .   v1*  *^  »•*  *l*  X  -  •.'  ■     *J*    V*  *J^«  **■»  »**  *'*  S'*  *t*     *}+    V*  "fc1*  »'*  «•'»  *'  '  »'*  ***  *"•*  »'*  ***  *'*  *V  *^»  ***  ***  »'*  ***  O*  "'*  '■*'*  *•''*  ***  *'-  *''  *'*  *V  *•*  *'*  *'>  *'»  »'»  »'■*  *'*  »'*    / 
*i»  f^ '  y  f—  Ni  •(»  ^">  *j«  *p  «|t  *(*  ^(»  ^p  *|*  *c  +f  *|»  *t^  *i»  *,»  #p  ?(»  *|*  *|^  *i>  »,*  *|»  *,»  »,h  *,»  «^«  #p  ^j*  *p  *,»  *>p  *,»  *|»  *,«.  *,*  »,■» ?,■•  *p  *,»  *(•  *,«  *,••  *,-  *,»  *j*  *j>»  »,>•  *,*  *p  ^|%  *,-  *,■•  »p  / 

/*   TICKET    PROCEDURE  HOWE  6-22-84     */ 

-r r/ 

/*  INTER-VIRTUAL  PROCESSOR  SEQUENCER  PRIMITIVE  FOR   USER   */ 

/*  PROS RAM.   SIMILAR  TO  "TAKE  A  NUMBER  AND  WAIT."   RETURNS-/ 

/*  PRESENT  V/LUE  OF  SPECIFIED  SEQUENCER  AND  INCREMENTS  THE*/ 

/*  SEQUENCER.   A  POINTER  IS  PASSED  TO  PROVIDE  A  BASE  TO  A  */ 

/*  VARIABLE  IN  THE  CALLING  ROUTINE  FOR  PASSING  THE  RETURN  */ 

/*  VALUE  BACK  TO  THE  CALLING  ROUTINE.  */ 

/* */ 

/*   CALLS  MADE  TO:   OUT$LINE  */ 

/  5|j  # ^e  #^; *  sf- 5|s ^- # #  :£  :j£ # # #^: #  # # #  # #  ^  #  £  j£  # #^  #  #  # ^ 

TICKET:   PROCEDURE',  SEO$NAME,  RETS$PTR  )  REENTRANT  PUBLIC? 

DECLARE 

SEO$NAMS  BYTE, 

SEQTBL^INDEX  BYTE, 

RSTS$PTR  POINTER, 

SEC$VALUE$RET  BASED  RETS$?TR  WORD? 

/*  ASSERT  GLOBAL  LOCK   */ 

DO  WHILE  LOCKSET(GGLOBAL$LOCK ,119);   END? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*' CALL  0UT$LINE(GMSG24) ; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
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/*  obtain  seo$name  index  */ 

s^qtelsindex  =  locatesseq(  seo$name  )5 

/*  obtain  sequencer  value  */ 

seo$value$het  =  sec$table(  seotbl$index  )  .seqsvaluej 

/*  increment  sequencer  */ 

seo$taple(  seqtbl$ineex  ).seq$value  = 

seo$t»bl?(sectbl$index).seo$value  +  1  ; 

/*  unlock  the  global  lock  */ 
globalhock  =  7   j 
return; 
end?    /*  ticket  procedure  */ 


/«L>   ft  ^\   t~\  ***■  »•"  V*  *^^  J*  ***  »'*  »'^  *'*  »'*  *J-»  *'*  »'*  *'*  »*■»  v'*  »'.   «**  fc'o  x'*  »'»   »'*  ***  *A»  «.•*  V*  »!-   %**  »■•  *i^  *X<  *'*  «.**  >i^  »•*  *•,»  V--  -*■•  *-'*  »'*  *«V  »**  »'*  •/*  **i»  *■'»  »*■*  *■'*  »•'  **^  »'*■  *''  ■»'■*  *'*■      / 
y,%    f^  ^J       J  L   rfa   Jj»  *-,«■   .-J*   *|*   *)*  #|S    *,»   *t-    *,«.   *,»  S^»   *t»  tfi    »,^  »,*   <p  »(»     *|*  *-j>.   #,»  *>p   *(-•   'i  •  ^,»   *|»   *|*  *!*   *)*■  »|»   *|*   *|*   *,»   *i*  *p    #i»  *i»  «•,■■   rt  -   *|*   ',*   «»|*   #•)■•    *j*  ifp  *p    ^|»  *y  +\*   »,*   •>,"   *|»   *,*      / 

/*          CREATESPEOC     PROCEDURE        POw'E   6-22-S4    */ 
/* */ 

/*  THIS  PROCEDURE  CREATES  A  PROCESS  EOP  THE  USER  AS  */ 

/*  SPECIFIED  BY  THE  INPUT  PARAMETERS  CONTAINED  IN  A  */ 

/*  STRUCTURE  IN  THE  GATE  MODULE.   THE  PARAMETER  PASSED  */ 

/*  IS  A  POINTER'  WHICH  POINTS  TO  THIS  STRUCTURE.  */ 

/*  INFO  CONTAINED  IN  THIS  STRUCTURE  IS:   PROCESS  ID,  */ 

/*  PROCESS  PRIORITY,  THE  DESIRED  PFOC  STACK  LOCATION,  */ 

/*  AND  THE  PROCESS  CODE  STARTING  LOCATION  WHICH  IS  */ 

/*  IS  TWO  ELEMENTS:  THE  IP  REGISTER  (OFFSET)  AND  THE  */ 

/*  CS  REGISTER  (CODE  SEGMENT).  */ 

/* '.,:/ 

/*  CALLS  MADF  TO:    OUTLINE  */ 

/«■>  »'*  »**  »,**  J*  J.»  <*%*  »**  »;»  V*  »'*  ***  *'*  ***  »'*  ■»*«■  »**  *V  •&*  *'*  *'*  *■'*  V*  V*  **"  »'*  ***  *'*  ■"■'*  *'*  »"*  »**  ^*  *'■*  ***  **■*  ^**  *•»  \*~  *'*  ■»''  *V  ^'«»  v*  *'*  »'••  *'*  *'*  »  *  »^*  ***  *•'•*  »V  *'*  V*  *'*  s'-*  V*  / 
*l»  »(»  *j"«  *"|"*  *|*  ^p  *if*  *,■*  »i»  *,••  "|»  ^,»  ^,»  «>p  ^^  ^,««  ««j*  *,»  *|*  *{*   *|»  *•(%  *f»  J^-   yf»-  Mi  *,*  r,*  •■_••  rt  •   *•(*  ^|»  *(»  *(*  #(*  *(■»  >,»  *j»  >,*  *,»  »(<  ^4»  ^4«  *t»  ••p  *j»  .'t»  *,»  -(-«  ^^  ^.^  ^j"  »j«.  *_■•  ^i%  *[»  ^  s  rf-      I 

CREATE$?ROC:  PROCEDURE (  PROC$PTR  )  REENTRANT  PUBLIC; 

DECLARE 

PROC$PTB  POINTER, 
PROC$TABLE  BASED  PROC$PTR  STRUCTURE 

(?ROC$ID  BYTE, 

PROC$PRI  BYTE, 

PROC$SP  WORD, 

?RCC$SS  WORD, 

PROC$IP  WORD, 

PRCC$CS  WORD, 

PROC$DS  WORD, 

PROC$ES  WORD); 


DECLARE 

(PS1,  PS2)    WORD,   • 
TEMP       byte; 

DECLARE  PROC$STACK$PTR  POINTER  AT(G>PS1):, 

PROCiSTACK  BASED  PROC$STACK$?TR  STRUCTURE 
(LENGTH(0FEfi)       BYTE, 
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PET$TY?E 
BP 

DI 
SI 

DS 
DX 
CX 
AX 
BX 
ES 
I? 

cs 

FL 


WORD, 
WORD, 
WOPD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WOPD, 
WORD, 
WORD, 
WOPD, 
WORD  ) ; 


*»*  *u  »'-  v* 

T  T  *.'  ¥ 

-i*  *.'  V  3jc 


>fi  5,<  •,;  V  v 


/**#    MXTEACE    *****    MXTPACE   * 

/***    MX  TRACE    *****    MXTRACE    * 

/*    CALL    0UT$LINE(GMSG26) J 

/#*#    MX  TRACE    *****   MXTRACE 

/***    MXTRACE    *****    MXTRACE 

/*      TO   SET    UP    ??OC$STACK$PTP 
PS1    =    ?ROC$TAPLE.PROC$SP    -   116H? 
PS2    =    PROC^TABLE. PROCESS; 


—   j.  »i 


*•;  *  i  ; 


MXTRACE 
MXTRACE 

MXTRACE 
MXTRACE 

*/ 


y  o,  V-  *'*  -'- 

*r  '<■*  *>*  *i*  *i* 


V 


MXTPACE 
MXTRACE 

MXTEAC2 
MXTRACE 


*  *  *  y 

a-  »'-  *»-  / 

"i*  '.  v  / 

V  V  V  / 

o*  *•-  »»-  / 


PPOC$STACK.FET$TY?F    =    INT$RETIJRN; 

CC<TABLE.?ROC$SP; 


OC$TABLE.PROC$DSJ 


PROC$STACK 

.BP 

=    PR 

PROCSSTACK 

.DI 

=   0J 

?ROC$STAC*' 

.SI 

=   0; 

PROCiSTACK 

.DS 

=    PP 

PROCS STACK 

.DX 

=   0; 

?ROC$STACK 

.CX 

=    0; 

PROC$STACK 

.AX 

=    0; 

PROCSSTACK 

.EX 

=   0; 

PROC^STACK 

.ES 

=    FR 

PPOC$STACK 

.IP 

=    PR 

PROC^STACK 

.CS 

=    PR 

PROC$STACE 

.EL 

=    20 

CC$TABLE.PROC$ES; 
OC^T.ABLE.PPOC$I?; 
OC$TABLE.PROC$CS; 
0H;       /*SET    IF    FLAG 


ENABLE    I  NTH)*/ 


/*   SET    GLOBAL    LOCK    */ 

DO   WHILE    L0CKSST((i>GL0BAL$LCCK,119); 


end; 


IF   P?DS.VPS*PER$CPU    <    MAXSVPSSCPU       THEN'    DO? 

TEMP  =    PRDS.VPS$PER$CPU    +    PRDS . V?$START ; 

VPM(  TFMP    ).VP$ID    =    PR0C$TA3LE.?RCC$ir; 

V?M(  TEMP    ). STATE    =    01;/*    READY    */ 

V?m;  TEMP    ).VP$PRIORITY    =    PR0CSTA3LE.?R0C$?Ri; 

VPM(  TEMP    ).EVC$THFEAD    =    255; 

V?M(  TEMP    ).EVC$AW$VALUE    =    0? 

V?M(  TEMP    ).SP$REG    =    PROC$ TABLE . PPOCSSP    -    1AEJ 

VPM(  TEMP    ).SS$REG    =    P-ROC  $TABLE  .  PROC$SS  J 


PRDS .V?S$?ER$CPU    =    PKDS .VPS$PER$CPU 
PRDS.VP$END    =    ?RDS.V?$END    +    1J 


l; 
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nr$vps(  prds.cpu$number  )  = 
nr$v?s(prds.cpu$numbep)  -  1' 
end;   /*  do  */ 

/*  release  the  global  lock  */ 

5l0balsl0cs  =  05 
return; 
end?  /*  createspeocess  */ 

/•(U  /"«  *~\   r~  r^  *■"*  V*  V*  >**  V*  **■*  *'*  »**  *'•*  **»  »'*  v*  »'*  »'*  ***  »'*  *'»  V*  *V  V#  ***  V*  %t—  *'*  ,-1-"  ***  V^  ■***  *'*  *J*  *'*  \' '  *V  V  *•**'*  *■'■'  *•**  *'*  V*  *■**  v'*  *'*  *•*•»'**'*  »**  **"  *•<*  »^»  ■>'*  h**  o  •  / 
T  M  J    r*  ''*  ^*  **  ^"   *"*  *v"  "**  "'"  *1"  *r  ^  ^*  n*  'r  ***  ^  "  ^"  T^'^TTI^T  *>**  *»-  T  "I"  *iy  T  T  T  n*  T  '."*  '.*  *•*  *  *  *P  *i*  "V  *l*  T*  I"  '»*  -|-  *r  "O  *V  '»•  *."  *V"  / 

/*     INiCHAP     PROCEDURE                  HOWE  6-22-84   */ 
/* */ 

/*  GETS  A  CHAR  FROM  THE  SERIAL  PORT.   CHAR  IS  !!!N0T!!!  */ 

/*  ECHOED.   THAT  IS  RESPONSIBILITY  OF  USE!  IN  THIS  CASE.  */ 

/*  INPUT  TO  SERIAL  PORT  VI. A  SBCS61  DOWN  LOAD  PROGRAM  MAY  */ 

/*  NOT  BE  ACCEPTED.  */ 

/*  POINTER  IS  PROVIDED  BY  USER  SO  HE  CAN  BE  RETURNED  THE  */ 

/*  CHARACTER  .  */ 

/* */ 

/*  CALLS  MADE  TO:   RECV$CAHR  */ 

/oLr  vi^  »v  V*  *'*  «■**  »**  »**  »'»  **»  *'r  *•*  *'»  V*  *'f  >**■  **■  ***  **-  ***  *■'*  ***  V*  *'*  ***  ***  *••*  *'*  V*  *s**  *V  V*  •*■•  *'*  ^»  Y-*  *■**  V*  *'^  *'*  ***  V-  ***  **'*  *'*  *'*  *'*  »'*  V-  ^*-*  **'*  *5*  *'-*  »V  Vi*  «J»  V«*  »'*     / 
nr  *r  -Tt  -*»*  -v  i*  -r  *c  *r  *r  *p  *r  *v*  o"  v  ?r  *r  «v  *i*  *i-  *i*  -i-  n*  v  *n  *r  *r  *r  *;*  *r  n5  *r  n*  *»*  *r  *i*  T1  n>  *r  n*  n»  V  *r  nr  *r  nr  -r  *r  V  vTTT'r'r^rT  / 

/#*#  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  IN$CHAR:   PROCEDURE  (  RET$?TR  )  REENTRANT  PUBLIC? 

/*    DFCLARE 

/*        RET$?TR  POINTER, 

/*       INCER  BASED  RET^PTR  BYTE? 

/*    disable; 

/*    INCHR  -  recv$char; 

/*   enable; 

/*   return; 

/*  end;  /*  IN$CHA?.  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/s;j^^  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*X 002* ********************************************* *******/ 

/*         IN^NUM  PROCEDURE  ROv.E      6-22-34  */ 

/* ^  ■ 

/*  GETS  TWO  ASCII  CHAR  FROM  THE  SERIAL  PORT,  SXAMIMES     */ 

/*  THEM  TO  SEE  IF  THEY  ARE  IN  THE  SET  ?.    F  HEX  AND  FORMS  */ 

/*  A  BYTE  VALUE.   EACH  VALID  HEX  DIGIT  IS  ECHOED  TO  THE   */ 

/*  CRT.   IMPROPER  CHAR  ARE  IGNORED.   NO  ALLOWANCES  ARE    */ 

/*  MADE  FOR  WRONG  DIGITS.   GET  IT  RIGHT  THE  FIRST  TIME.   */ 

/*  IF  YOU  ARE  INDIRECTLY  ACCESSING  THE  SSRIAL  PORT  VIA    */ 

/*  THE  SBC861  DOWN  LOAD  PROGRAM  FROM  THE  MDS  SYSTEM       */ 

/*  INPUT  MAY  NOT  BE  ACCEPTED.   A  POINTER  IS  PASSED  BY  THE-/ 

/*  USER  SO  TEAT  HE  RETURNED  THE  CHARACTER.  */ 
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/* */ 

/*      CALLS    MADE    TC:       IN$HEX  */ 

/»U    »*<  <tfr     %\*   **y    ***  »•*    «X*  +Jr    V-    "J*   »**■     "J*   *'*  sV   »*-    **-    0>  V*   »**   *'-'    *'■»   V*     »*>   ***    »•*  V*    *J*    »''  »'^    **<   ^'*    »^»    •>'<   V*    »'*    ">■'■*    *'*   ***  »'^   V*  ***   V*    *•'   «J*   ***  »'*    *'*   ■*'''    %*■»    ***    »*'  ***  »JU   O*    tl<    O*    .J-         / 
*p  >p  *-p  *p  *p  *y»  *p  *»p  *>p  #|»  >p  *p  *p  fy-  >p>  *p  >|»  *,»  ^*  *p  ^"*  *^»  *5p   rp  #■(■»  »(»  ^»  «p>  *p  ^p  ^p  *j»  *p  *p>  *,»  «p  ^f*   -»p  *.*  *t*  T*  *p  *1*  *V  If  *.*  *|*  T*  *t*  *|*  *I*  *T*  T*  **P  "S*  *i*  *T*  *i"    / 

/#**    MXTRACE    *****    MXTRACE    *****    MXTRACE   *****    MXTRACE    ***/ 

/£**    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    *** / 

/*    IN$NUM:      PROCEDURE    (  *RET$PTR    )    REENTRANT    PUBLIC;'" 

/*  DECLAFE 

/*  RET$?TR  POINTFk, 

/*  num  based  ret$ptr  byte  5 

/*  disable; 

/*  num  =  inshex; 

/*  enable; 

/*  return; 

/*   end;    /*   IN$NUM   */ 

/***    MXTRACE    *****    MXTRACF    *****    MXTRACE    *****    MXTRACE    ***/ 

/##*    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 

/y*  4  /in  i  ^k,  y»  «,t»  y«  »••»  »•*  *•*  y*  »•*  v*  **f  ***  y?  ***  y*  v**  v-  »*r  y*  y*  »v  y*  y-  y^  <*'  y '  y*  y*  ***  y*  ***  *v  »'■*  ***  y*  y*  *•*  **+  %v  *'*  *v  ***  ^**  y*  ■',*  y*  *'*  Jr  •*»  v-  ***  »'■'  y*    / 
*p  n   if    *  ^i  *p  ^p>  ^p  i^-  <-,-  *p  *p  *p  «^s  *>,-,  ^,~  *,-  ^,»  *p  *,(.  jj'*  j^^  *|^  j-p  *p  ^p  *,^  jp  *p  *,x  ^-.  ^p  ^p  *y*  *p  *»*•  *i*  *o  *i"*  t*  *r*  '!*■  *c  rf  't"  *r  *»*  'i*  *<*  *»*  *o  't*1  *o  *»*  *i^  *f*  'i*  *c   / 

/y«*  >v  o»  y*  y*  y*  %v  o-  »>-■  »ju  »'^  y^  y*  ***  »*^  ^'-  y*  y«  o*  y«  »•*  vV  ■*'*  *'*  *■'*  ^**  y*  ^'^  v**  ***  s'*  vV  *>V  V*  y*  *^  •***  *'--  y*  •***  •*'*  *■'*  *'*  *■*'  *'*  *V  *  *  »'-  ■»'*  y-*  *■''  y**  %•»  "**■■  ■*•*  *^  •*.•  ***    / 
>i*  ^p  *i»  ■*!■*  ^p  *p  *p  *^'  -ip  *>p  *j*  *|*  •'j*  *y  *|-»  ^»  «*i^  •Y'  *iv  *%*  *iN  'p  *#*  *i*  +t*  *i»  'i*1  *lp  *p  'p  TT  "t*  *!*•  *C  ***  1*  *l*  'f*  *C  T*  *i*  T  *i*   *Y*  T*  *|*  "f  *|"*  ';'   *T      C    'iv  'I*  T  "*l*  *1%  T"  'i*    / 

/*        OUT^CHAR  PROCEDURE  RCWE    6-22->24      */ 

/« */ 

/*    SENDS    A    BYTE   TO    THE    SERIAL    PORT  */ 

/* */ 

/*    CALL    MADE    TO:         SENDS  CHAR  */ 

/*•»  y»  *•*  «j*  »<rf  »^*  o*  *.•*  y*  «i*  »'*  *i*  i»^  *■*  s**  o*  *v  «.■*  »i*  y*  *•<>  »v  »*•  *'*  y*  y-*  y»  %**  »**  J*  *•*  *'"  ••*  »•*  »'*  j*  »-r*  ^:-  **#  »•#  »•-■  y*  •>•*  y*  ••*  *'^  y-  »*«•  **#  y»  «.'*  •»'*  *'»  ■-'»  »**•  »**  •.•*  ^**  / 
^4^  rfp  *,•  *,-  *j«»  *p  *p  ^,*  *"p  *p  *,»  ^, .  ^j*  »p  «p  #■■■•  *-t  *(»  «f*  »J*  •",*  *p  "l"  'i*  *l"  *,*  *j*  »J»  •■!*  *,'  *^*  ^t"  "*p  *"!*  *t-  ""1»  *p>  *p  *,"*  *j*  *p  *;»  'I*  ',-  "J*  *p  *.»  *p  •",*  *p  "pi  *.*  •";"•  »J»  •»;»  *|*  *!**;-   / 

/###    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 
/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 

/*  0ut$chap:  pr0cedure(  char  )  reentrant  public: 

/*        declare  char  byte; 

/*        disable; 

/*        call  send$char(  chat    ); 

/*        enable; 

/*        return; 

/*  end; 

/***  mxtrace  *****  mxtrace  *****  mxtrace  *****  mxtrace  ***/ 

/***  mxtrace  *****  mxtrace  *****  mxtrace  *****  mxtrace  ***/ 

/^*  a  n  r*j  o  •**  y*  ***  **'  ***  **'  •■'" v'-*  V'  v*  *''  ***  *'*  *'■•  ***  ***  '*■  *•*  **'  »**  *'■•  *'*  v*  **'  v*  ***  "**  y*  *>v  *t-  *v  ^'^  *^  »'*  *'*  v*  *'*  y*  ***  *'*  »•*  *■'  y^  **■•  »**  *'*  *'*  *'*  **-  ***  »*-  ***  »**  / 
»p  1  l/i  •  j'  ^"*  *p  ^(,»  *p  *p  *p  *jp  ■ ,»  /(i  *,«  *p  'p  »p  *p  *|»  ^j'"  »*p  #p  •"(»  *p  «"p  *p.  V^>  >^»  >, •  <»p  «*|'>  >|"»  »p  *p  »-|*«  ^s  j», -  *p  »j*  *p  *,»  ^p  ^, -  ^t»  »p  rp  ^p  "»p  *p)  *p  »p  *,»  *)••  >(•  *p  *(-  *,-  / 

/*        OUT^LINE    PROCEDURE                                        ROWE      6-22-34  */ 

/* */ 

/*    USING    A    POINTER    TO    A    BUFFER    IT    WILL    OUTPUT    AN    ENTIRE         */ 

/*    LINE    THRU    THE   SERIAL   PORT    UNTIL    ^N    '% '    IS    ENCOUNTERED      */ 

/*   OR    80    CHARACTERS    IS    REACHED— WHICH    EVER    IS    FIRST.      CR'S*/ 

/*    AND    LF'S    CAN    BE    INCLUDED.  */ 

/* */ 
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/*    CALLS    MADE    TO:       SEND$CHAR  */ 

/,v  »•»  **»  »•*  »•-  »<*  »'*  v*  »'#  »v  »'*  •>'*  »**  *'*  *'*  »'*  *'*  »•*  »'*  ***  v*  »***v  »■*  *-'*  «JU  *t*  v^  V'  "J*  V*  *'*  *'*  V*  *'*  **'*  v**  *'*  V'  **■*  *•'*  ***  ■**  *'*  ***  *1' V"  *•*  *V  V*  *'*  s>*  Vi  *V  vi  i1*  *'■*  i!'  / 
<■>  vp*r»f  Vn*  '•**  *r  '.c  *»■*  *r  t  *»x  *i*  •**  *p  *r*  n*  *v  n*  1**1*  *i*  *»%  "5*  *r»  «■»»  *t%  -v  A-  i*  *»*  *i-  *i*  *r*  *i*  *»*  ^  **•  *i*  *i*  i*  *»"*  n*  *V*  *<*  *■.-  *»*  n-  *v  *r  ■*!*  *r  *r  n-  *r  *»■•  / 


/***  MXTR&CE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*   0UT$LIME:    PROCEDURE (    LINE$PTE    )    REENTRANT    PUBLIC  J 

/*  DECLARE 

/*  LINE^PTR    POINTER, 

/*  LINE    PASED    LINESPTR    (80)    BYTE, 

/*  II   eyte; 


/* 

DISJ 

/* 

DO    I 

/* 

I 

/* 

C 

/* 

end; 

/* 

DONE 

/* 

RETU 

/* 

E 

nd; 

/#* 

!* 

MXTRA 

/#* 

e* 

MXTRA 

ble; 

I    =    0    TO    79; 

F    LI  NEC    II     )    =     '%'    THEN 

ALL    SEND$CHAR(    LINE(    II 


GO  TO  done; 

)  ); 


enable; 


rn; 


CE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 
CE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE   ***/ 


/y*  a    a     i  i  *■*'  y»  y*  *J*  y.*  *f*  »v  *•*'  **■*  V*  *•**  V*  y*  V*  ^*f  *'*  ***  *A*  *''  V*  *'*  **'  *«''  y^  V*  ■*"*  *'•■  *''  V-*  *'*  *'*  ^'■*  V'  "~'*  ***  *'"*  "',*  ">V  V'  >?*  ,t''  V*  '  ■*'-  **-**'*  y*  »'*  y*  »•*  »'-  *•*■  *'-  / 
*J»  I    I   I  A  f\     >|»  *^»  rf|^  *•,-  ^j*  >,■•  J(|*  *■,  *|^  >|^  *,»  **,  •  >,*  *|»  *i»  *|%  «,*  *f*  *[•  +y   ^|»  *jx  rfp  *)■»  Jt*    *^   *^»  »,»  >,^  *f*  «,x  >j^  ^(x  *-,v  *f»  *|»  *j-*  ^(*  /^  *  j»  ^|»  ^(»  *,   -(»  *■,*  •■,>  >,»  >j-.  '  f,   rf%   ■»,«>,»  »(i   / 

/*      OUTiNUM                    PP0CEDURE                                   ROWE        6-22-84      */ 
, ,v 

/*      OUTPUTS    .£    BYTE    VALUE    NUMBER    THRU    THE   SERIAL    PORT  */ 

/* */ 

/*      C.^LLS    MADE    TO:       0UT$HEX  */ 

/***  *V  »■"  *•#  0»  »'*  »v  »'^  *'*  V*  s**  »"-*  ^*  »'"  *'"  ^^  Vf  *'*  *■'*  V*  ***  ^**  V*  *"*  »'^  ***  *V  ***  V*  v*  V*  >^  >•*  V*  V*  *J*  *'?  ***  *^  >•*  ^^  *•»  ^^  »V  »'*  *^  v^  *V  *'*  ***  J*  ***  «i"*  ■*}'  tV  v*  ■»'*  %*»  t 
»r  n5 1-  t-  *i*  V  V  *r  n-  *r  V  -.*  *r  *P  *r  -r  t  n"  T  y.-  n*  *r  a-  *r  «SF  'r  ic  -i*  3p  V 1*  Jr  V  W  v  -v  *r  *r  V  ¥  V  t*  *r  i*  *»*  3i*  ne  -rn-  i-  *r  V  -**  n*  *?  n*  *r  / 

/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 
/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***/ 

/*  0ut$num:  '?r0cedure(  num  )  reentrant  public; 

/*        declape  num  byte; 

/*        disable; 

/*        call  out$hex(  num  )j 

/*        enable; 

/*        return; 

/*  end; 

/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE    ***./ 
/***    MXTRACE    *****    MXTRACE    *****    MXTRACE    *****    MXTRACE   ***/ 


/s*i  1  1  /i  ^  fi  A  i':  s1;  j'i  sit  s'*  a?:  V*  2'c  ***  j**  -**-•  v*  v*  *»*  *v  v#  y-  ^**  **»  v-  **-  y*  *•-  **<»  v-  *v*  y*  ***  y-  ^s  *•>  *■•*  •<*  y*  y--  *•*  y*  y*  y-  '*'•  **-  *'-  y-  »■*  *v  •.**  y-  »u  ^'.  ■*<*  *v  / 
*»*  1  I  ^  s>  *i*  *r  *.*  *»*  *<i*  *r  *r*  n*  '•-  v  "r  *p  n-  *r  *r  *r  **r  *»*  *«*  *r  i*  sr  *r  i*  i^  »r  'r  *r  7**  *•-  *i*  v  *r  *p  *r  ?<*  v  *r  n*  A*  v  t  *r  '»'■  ^•^^•t'T'pti't  / 

/*      IN$DNUM                  PROCEDURE                                     ROVE      6-22-34         */ 
/* */ 

/*    GETS    EOUR    ASCII    FROM    SERIAL    PORT    TO    FORM    WORD    VALUE.         */ 
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/*  CRITEPIA  .*?.!  THE  SAME  A3  IN  PROCEDURE  IN$NUM  */ 

/* */ 

/*  CALLS  MAD?  TO:   IN$HEX  */ 

t  t  n-  t  i-  'i-  -»»  'i1-  «v  *v  *r  *r  *r  i*  v  '?  t  #r  t  'r  t  i*  t  *p  vp  V  t  ^i*  'i*  t  t  t  t  t  *r  *r*  *r  *»*  *i*  *r  *•.»  *r*  -r  -r  *»■*  *;"*  V  *»»  i*  «v  *i*  *r  *i*  *r  *r  *r  *v  / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  IN$DNUM:   PROCEDURE  (  RET$PTR  )  REENTRANT  PUBLIC? 

/*  DECLARE 

/*       RET$PTR      POINTER, 

/*        INUM  RASED  RET$?TR  WCP.D, 

/*      (H,  D   word; 

/*   disable; 

/*     H  =  IN^HEX; 

/*     H  =  SHL(  K,  S  )J 

/*        l     =  insbtex? 
/*        dnum  =  (h  or  l); 
/*        enable; 
/*        return; 
/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/»•*  4  A     P*i  o  *•>  V*  V"  *f*   *'■*  sV  *"*  V*  ■»'■'  *V  V.*  ^i*  >**  v^»  >V  *'■»  >V  V»  *'*  »'»  "-1'  *A»  V'  **rf  »*■*  V*  V*  »:»  *Arf  *.'*  »V  »'»  »'*  "»'*  *'"  V*  *"*  •**  ^'•"  V*  *•'•■  ■'*  *'  *■'-'  *V  »**  »'*■  J*  »'*  *»V  »'«•  *'*  »*««   / 
S|»  T  T  '  V  J  J^x  J(*  Jjf*  5t*  #,*  3|*  J^  ?4*  *■, .  ^  ^p  +f-   ^  Jf.  Jp  3p  ^fc  3p  *,•  *j*  -|»  *y  ^»  Jj".  *■,»  ?,»  Jy   *|-  *p  *y*  *P  *P  *P  '»*  *(*  *»■*  *<*  ***  ***  'f*  *t*  1*  **"*  *f*  *P  1*  1*  **"  *»*  ■TP  T"  *»"*  "i*  / 

/*     OUT^DNUM      PROCEDURE             ROWE  6-22-84      */ 
/* */ 

/*   OUTPUTS  A  WORD  VALUE  NUMBER  VIA  THE  SERIAL  PORT        */ 
/* */ 

/*   CALLS  MADE  TO:   0UT$HEX  */ 

/»•*  +?*  *V  V*  *'■'  *J*  nV  *■'*  »^*  **»  **>  ***  *l*  O*  %V  •■'^  ***  **•  ***  V*  »'»  V*  ***  »*j*  ^V  »'*  J*  »!*  ^**  V"  *t**  •J--  ***  ***  *'*  »'■»  n'-*  ***  V*  fc**  »'*  »'*  ***  *■**  *'*  *V  *•*  »**  V*  *'*  %*'■  V*  ***  *'■»  *^*  *l*  x'*  i**  / 
>(>  *|*  »j»-  ^t»  »^-  /,»  ^j*  *|*  *|*  *|»  *|»  #J«  ■>,»  *j<«  >|*  »(*  *,*  *|»  *,»  *_*  ^,,»  ^«  ^(H  >j<"  y,*  »|»  ^j*  *|»  *|»  >t*  A»  >i»  •■(»  *(»  »j*  »|^  ^l*  *,^  ^»  <»j*  *■(*  -,»  *(»  »4»  »|*  *(•■  -^»  »(*  J(«  *y»  *J"  rffc*  ^(*  *.■•  *^  *p  *_»  ^%   / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*   0UT$DNUM:  PROCEDURE!  DNUM  )  REENTRANT  PUBLIC! 


/*     DECLARE 

/*        DNUM     WORD, 

/*      SEND    byte; 

/*  disable; 

/*  send  =  hige(  dnum  )j  ■ 

/*  call  0ut$eex(  send  ); 

/*  send  =  lcw{  dnum  ) 5 

/*     Cs.LL  0UT$HEX(  SEND  )J 

/*   enable; 

/*   return; 

/*  end; 

/***  mxtrace  *****  mxtrace  *****  mxtrace  *****  mxtrace  ***■/ 

/***  mxtrace  *****  mxtrace  *****  mxtrace  *****  mxtrace  ***/ 
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/.I  *    4      f\     A      f*    ••*■    O*  *•*  *.'*   *'*   »''  *Jy    *'*  V»  *»»  Vi»  *•*  *V  »'*  »'*  *'>   ***  '"'^   V#  *'*  V*  *'■•  %•*   *'»  *V  V<  *■**  »'*  ***  »'*•  V*  ">'■*  "^  V*  fc'»    »'*  "•'-»  'J*   ***  si*  V"*  -'»   *'*   »'*  *V  Vi*    V^   «■*»*'*   V<*  *'* 
*£    |    \?   1    B^  3QC  3p  *,-.  5,t  3,-  *p  ^»  *,»  5(*  *,v  5,C  *y»  *(C  ,r  »|C  *-,>.  *.,.  7,5  y,»  ..,,  3>  3r  ^*  *p  ov  or  *■"  Of*  'i*1  *i"  O*  1*  *r  o-  *r  o*  *r  "t*  Of*  *p  O*  -  <*  of*  or  *r  *r  V  o-  o^  0s  Of* 

/*        RECV$CHAR        PROCEDURE                                        ROVE    6-22-S4 
/., 

/*    BOTTOM    LEVEL    PROCEDURE   THAT    OBTAINS    A    CH«R    FROM    THE 
/*   SERIAL    PORT.      PARITY    EIT    IS    REMOVED.      CHAR    IS    I INOT! ! 

/*    ECHOED. 

/,. 

/*    CALLS    MADE    TO:  NONE 

/«•■•  »'*  »**  %•*  *f*  »•#  n**  *V  **»  *V  »'•  »**  *»'*  *'•  »'*  *^»  >*»  »**  V*  ***  *'*  ***  \'*  ***  ***  ■',*  sV  V*  V*  *'■*  *** 
#1*  *!«■  »t-  #]■>  *(^  *j*  *yi  *[»  »(*  »,v  *,*  *j»  >j"»  .-,«  »,»  *■!->  *,*  #(*  ("j*  ^»  *|»  *(*  ^"»  *(»  r|»  */»  >f»  *,»  *(*  *^""  '|* 


'  OY*  / 

*/ 

.*  / 

*/ 
*/ 


V 


/#**  MXTR.ftCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*#*  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*    FECVSCEAF:       PROCEDURE    BYTE    REENTRANT    PUBLIC; 


/  A 


DECLARE 
CHP 


byte; 


/*  /*check  port  status  eit  2  for  receive-ready  signal  */ 

/*  do  while  (in?ut(0dah)  and  02h)   -  0?     end; 

/*  chp  =  (input(cdbh)   and  £?fh); 

/*  return  chr; 

/*  end; 

/***  MXT?&CE    *****    MXTRACE   *****    MXTRACE    *****    MXTRACE    ***/ 

/***  MXTRACE    *****   MXTRACE    *****   MXTRACE    *****    MXTRACE    ***/ 


PROCEDURE 


/  *  1 2  4 1  '■'  *  *  *  *  *  *  *  *  *  *  ******  * 

/*      SEND$CHAR 
/* 

/* 

/* 


'*■  »'*  »'.«  »v  *f*  V^  »^  •■'('  »V  *  *  V*  V*  »'*  V*  *^*  »'*  V  *  *•*  V*  fcl"  **r  ^'r  *'*  ***»'»  V*  V*  *'*  *  V  V-*  *''  «'•'  »v 

I*   *,■•  »,"  ^*  *\+  *ft   rf~  *jt    ,,t     *f*  Jt-»   ^p  ,(~  Jt*  *f%  jA  ^s  »,.    J,.    *(*  r*f.    Jjt,  ^p    y(»  ,_,  jf,   *t*   iy  .  <(i.   J<s  ^(*  ^(»  ^^ 

)URE  RCWE  6-22-34 


V  •«*'   -■'      / 

^  *i*  n«   / 

*/ 

*/ 

THIS  IS  NOT  A  */ 
BUT  IT  13  CALLED*/ 
STOP    SENDING 

AT    INPUT.       ~Q 


/* 
/* 
/* 
/* 

/* 

/* 

/* 
/*. 

/* 


OUTPUTS  A 
SERVICE  AV 
BY  MANY  OF 
(AND  EVERY 
WILL  RELEA 
THE  USER  B 
TO  FREEZE 
ASSURE  NOR 
ALL    BOARDS 


BYTE    THRU 
ML  ABLE    TH 

THOSE  PRO 
THINS  ELSE 
SE  THE  PRO 
EWARE! ! ! ! ! 
THE  CRT  FO 
MAL    RESUMP 

TO    IDLE    F 


THE    SERIAL    PORT. 
RD    THE   GATEKEEPER 

CEDURES.  IT  WILL 
)  IE  IT  SE^S  A  ~S 
CEDURE    TO    CONTINUE. 

THIS    IS    ONLY    A    DIAGNOSTIC    TOOL 
P    STUDY.       PELEASING    IT    DOESN'T 
TION    OF    EXECUTION.       (YOU    MAY    FOR 
OR    EXAMPLE.  ) 


CALLS    MADE    TO: 

.  ■.**  *•*  »•>  •.»*  *»*  >■-  *ff  «»..  v«-  *»*  v'#  »•*  »•*  ««»  »<*  %X-  V*  *V  *•**'#  »V  *'»  J-  y**  *'*  v'-  »•>  O*  *'-  V-  ***»'-  »**  *0  Vc  •■*  V  V-*  *'"  *'*  ***  ^,*  »**  »''  -'-  *■'*  -'+  »'*  ••i*  -'*  **^  *•** 

'  *i*  n*  "i"  *»%  *»■"  'i1*  *»*■  *i*  rf(*  *'s  or  'i*  *»%  *i*  *(*  o*  o*  '(*  'i"  o-*  'i*  '."•  "i*  n~  *i^  *»*  "i*  *r*  *i*  I*  *i**o*"  *.*  or  o*  o-  o*  o*  *t*  of*  o*  ',*  'r*  **i*  o*  o*  o**  o*  ™.   **i*  o*  "t* 


*/ 

*/ 
*/ 

CF*/ 

*/ 

— */ 
*/ 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*    SEND$CHAP:    PROCEDURE( CHAR )    REENTRANT    PUBLIC; 

/*  DECLARE    (CHAR,INCHR)    BYTE; 

/*  /*    CHECK    PORT    STATUS    */ 

/*  INCHP    =    (INPUTODSH)    AND    07EH); 
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/*  IF  INCHR  =  13E  THEN 

/*       TO  WHILE  (INCHR  <>  11H) J 

/*  I?  ( (INPUT (0D*R)  AND  K2H)  <>    Z)    THEM 

/*  INCHR  =  ( INPUT (0D8H)  AND  07FH); 

/*      end; 

/*   do  while  (input(0dah)  and  01e)  =  ?'*       end; 

/*   output (0d6h)  =  char; 

/*   return; 

/*  end; 

/***  MXTRAC2  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTP.ACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/>,!»  A      *—»  ^\  ^T  *t*   »'*  O*  O*  »l*  »l»  *i*    »'»  »**  »**  ■**»  «.'*  V#  ***  *l*  »*#  *•*  *'*  *>»  »'.*  »•#  V*  "»'*  *'^  *'"'  *I^  J&   "''■'  "■'■*  "**  V*  *^*  *'*  *'*  *'*  "^*  *'*  *^*  "»'*  ***  *'*  '  '  '  *'*  ***  *'*  *'*  *'■*  >'■'  *■'*  *'*  ***  »'»»''   / 
»P  1  J  ^__,  S  'i*  »p  *i»  *i*  *,*  *i*  1*  *i*  *»*  *V*  1"*  *i*  *(*  *i*  *f  »i*  *i"  *p  1*  *i*  *"i*  *i*  'i*  *"»v  'i"  hh  *i*  *f*  ""i-*  *(■*  *»*  *|*  *i*  *T*  *t*  *l*  *i*  *i*  "i'  *p  *i*  *•*  *i*  *i*  *i*  *i*  *t*  *l*  't"  *i*  *i*  *■*  *("*  / 

/*   IN$HEX     PROCEDURE                     ROWE  6-22-84   */ 
/* */ 

/*   GETS  2  HEX  CHAR  FROM  THE  SERIAL  PORT  AND  IGNORES  ANY-  */ 

/*   THING  ELSE.   EACH  VALID  HEX  DIGIT  IS  ECHOED  TO  THE     */ 

/*   SERIAL  PORT.   A  BYTE  VALUE  IS  FORMED  FROM  THE  TWO  HEX  */ 

/*   CHAR.  */ 

/# */ 

/*   CALLS  MADE  TC:   RECV$CEAR  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE.*****  MXTRACE  *****  MXTRACE  ***/ 

/*  IN^HEX:   PROCEDURE   BYTE  REENTRANT  PUBLIC; 

/*  DECLARE 

/*        A  S  C  I  I  ( i;i )  3YTE  DATA  (  '0123456789ABCD2F  '  )  , 

/*  ASCIIH(*)  BYTE  DATA ( '0123456789' f61E,62H,63Hf64Hf 65E , 

/*  66H), 

/*     (inchr,  hexnum,  h,  l)  byte, 
/*     found  byte, 

/*     stop  byte; 

/*   /*  get  high  part  of  byte  */ 

/*     FOUND  =  0? 

/*     DO  WHILE  NOT  FOUND; 

/*  /*  IF  INVALID  CHAR  IS  INPUT,  COME  BACK  HERE  */ 

/*      INCHR  =  recvschar; 

/*        H  =  0J 

/*  stop  =  0; 

/*  /*  compare  char  to  hex  char  set  */ 

/*  do  while  not  stop; 

/*  if  (inchr=ascii(h))  or  (inchr  =  asciih(f))  then  do; 

/*  stop  =  0ffhj 

/*  FOUND  =  ?ffh; 

/*  CALL  SEND$CHAR(  INCHR  )J  /*  TO  ECHO  IT  */ 

/*  end; 

/*         ELSE  do; 
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/*  H  =  H  +  l.i 

/*  17  E  =  10H  THEN'  STOP  =  0FFHJ 

/*  END?  /*  ELSE  */ 

/*        END;  /*  DO  WHILE  */ 

/*        H  =  SRL(  H,  4  ); 

/*  END?  /*  DO  WHILE  */ 

/*  FOUMD  =  0; 

/*  /*   GET  LOW  PART  OF  "BYTE  */ 

/*  DC  WHILE  NOT  FOUND? 

/*  /*  AGAIN  DO  UNTIL  VALID  HEX  CHAR  IS  INPUT  */ 

/*  INCHR  =  recv$char; 

/*  l  =  0h; 

/*  stop  =  0; 

/+  do  while  not  stop; 

/*  if  (  inchr=ascii  (d)  cr  ( inchr=asciih(l)  )  then  do: 

/*         stop  =  0ffhj 

/*         found  =  0ffh; 

/*         call  seni$chah(inchr) ; 

/*         end; 

/*  ELSE  do; 

/*  L  =  l  +  i; 

/*  IF  L  =  1£H  THEN  STOP  =  0FFE; 

/*         end;  /*  ELSE  ♦/ 

/*       END;  /*  DO  WHILE  */ 

/*     END;  /*  DO  WHILE  */ 

/*    RETURN  (H  OP  L) J 

/*  END;  /*  IN5HEX  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/»l^  a     rr   ^\  ^T   *•*  >•*  *•*  V*  ***  »'^  »**  ».•*  %•■»  V-  >'*"  *'*  "**   *'*  V*  ^*  ***  \**   »V  *V  »'■*  ***  »'*  V*  *■'*'  V*  *'*  V   V****  *^f  ***  ***  ***  *>"*  ***  *'*  ***  *'"  V*"  **»  *'*  *'*  "*'''  *V  *'*  S**  *'"  *''  V*  v'*  »'*  *'*   / 
,,-  [   ^  M  4.  «,%  J^k  *,*  *,*  *,*  *,..  *,*  *(*  J,-.  >,*  *-,»  *,%  •,»  *t*  J(»  *f*  ^*  y,»  »,«  *,s  #|<t  rt<*   *,»  J(»  *,«  Jp  »,»  >,«.  ^,»  *t%  »(^  »,»  *(>  *j»  #|*  *,.  rft   -|»  *■,»  ^,»  .*,•  »  .-  #,»  *|«»  *^*  *,-   *.•  ',»  *-j»  >,*  »|*  *i»  *(»  / 

/*      OUT^EEX     PROCEDURE  ROWE  6-22-S4  */ 

/* */ 

/*   TRANSLATES  BYTE  VALUES  TO  ASCII  CHARACTERS  AND  OUTPUTS*/ 
/*   THEM  THRU  TEE  SERIAL  PORT  */ 

/* */ 

/*   CALLS  MADE  TO:   SEND$CHA?  */ 

/*/■*  »'»  %**  *•<  »'*  \^  »V  *V  *V  ***•  ***  *T*  *■'*  >**  ^*  V-  **■*  ^V  ^?  *V  V-  **>»  *■"*  ***  A  V1-  V-*  V*  */(*  *'*  sV  *'•*  Vr  Vf  *'»  »**  *'■*  ***  »**  »'»  *"*  ^'^*»V  V*  ■*'*  **■*  ■»  ■*  V*  sfe  V*  ***  ***  "^  *•*  ^?  *'/  ***  **••    / 
*i*  >j*  *p  *!*■  »i^  *p  ^i*  *p  ^t^  *^  *)*■  *^*  *p  >)*  ^*  y^  ^,»  ^|fc  ^p  *]S  ^.  *■(-  *j»  *,-.  ^-.  3^  ^j*  >p  jjt  *,«.  ,p  *Tp  ^j-  ?f.  ^p.  s^  *^»  *^»  *-4~  *4*  ^»  ^,-.  >jt  ^i  ^»  *j~  ^^»  J-~  >p  ?js  «p  ^p  ,-j.  *^  fJi  *.z  ,j»  *^«    / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  OUT$HEX:  PROCEDURE! B)  REENTRANT  PUBLIC; 

/*     DECLARE  P  BYTE? 

/*     DECLARE  ASCII (*)  BYTE  DATA  (  '0123456739A3CDEF ' ) J 

/*     CALL  SENB$CHAR(ASCII (SHR(B,4)  AND  0FH)); 
/*     CALL  SSNr$CHAR(ASCII(B  AND  0FH  )  )  ; 

/*    return;  ' 

/*  end; 

/***  mxtrace  *****  mxtrace  *****  mxtrace  *****  mxtrace  ***/ 

/***  MXTRMCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
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/***  V?  »V  *<*  ***  "'*  **»  V*  V-  *>'*  *'*  **-  i*£  *''  V*  »V  *•*  *V  *!*  V-  *£r  ***  tf*  *'*  ***  J*»'*J*^fV*»i*j**i*  v*  **f  %V  ***  *•*  V*  V*  ***  V-  *V  *'»  **■»  •**  *V  »'-  «*•*  »'*  V*  *»•»  •.'*  V-  *'*  *•-     / 
*»*  'r  nc  *i"  o^'  n*  ^  ^^  ^  ^*  v  t  y  v  v  ^s  'F  t  ^  t  ^  ¥  n*  t  V  ^'  ¥  ^  7r  ¥  ^*  t  t  nr>  ¥  t  t  V  v  r  V  t  v  r  t  'r  ^  v  r  V  t  V  V  r  t  / 


end; 


/*      L2$P0DULE      */ 


/###  #y?y,:##yr-###£y?*y,:*##y?*£###y,c#££y,c#y?#  ###  £####*}:;):*  ###*;;###  #*###/ 

/  sj;  #  y,s  s|:  y,c  #  y,J  sjs  #  j(«  >j£  y,£  ;£  #  }£  $  ;jc  #  :£  #  >;<  s£  #  Mf:  y,<  #  y,;  #  sje  y,<  y,e  y,:  y,:  #  y,<  5;:  >',t  y>:  y,t  y,c  >;<  >;<  #  yc  y,;  y,j  SJs  y,;  y,;  y,:  y,i  y.<  >;:  sj:  y.e  >;:  / 
/  #  £  X' #  >r  #  £  #  >>' #  $  >■' y,;  y,<  y,«  #  y^  #  #  y^y,;#y?  y,;  %t  y,<  y^  #  y,<  y:  y,<  $  y,;  y,<  y,<  y?  y^  y,«  #  y,;  ^^i.'xy.cy^s^;,;^  ;;«^y,s  $  y,-  ^  y,:  #  / 
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APPENDIX  E 
LEVEL  I  —  MCORTEX  SOURCE  CODE 

All  the  LEVEL  I  source  code  written  in  PL/M  is  contained 
in  the  file  LEVEL1.SRC.  It  is  compiled  with  the  LARGS 
attribute.  Two  other  LEVEL  I  functions,  SCHEDULER  and 
INTERRUPT  HANDLER,  were  written  in  ASM86  and  are  listed  in 
their  own  modules.  LEVEL  I  is  one  of  the  relocateahle  code 
nodules  in  file:  KCRE.LNK.  It  is  part  of  the  executable 
code  module  in  file:  KORE.  KORE  is  the  development  system 
version  of  the  file  KORE. OPS  loaded  by  MCORTEX.CMD  under  the 
CP/M-86  operating?  system.  This  module  contains  utility 
procedures  used  only  by  the  operating  system.  Two  memory 
maps  of  KORE  (.OPS  and  .TRC)  are  located  at  the  end  of  this 
Appendix.  The  maps  come  from  file:  K0RE.MP2  after  compiling. 
linking  and  locating  the  applicable  files.  KORE(OPS)  is 
produced  with  the  code  unaltered.  KOPE(TRC)  is  obtained  by 
removing  and  adding  appropriate  comment  marks  from  the 
indicated  code  before  processing. 
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/o-  /■»  n    o  r~i  V"  *■'*  *■*  V*  V*  *'*  ***  V*  **"  *'*  V?  ***  >V  **■»  *V  **t  ^**  **f  ***  ***  \'e  ^**  **'"  V*  V*  ***  *"**  ***  *'*  ***  sSff  V*  V*  ^*"*  V-  *V  ***  »1-  *•*  ^**  ■»'*  *'•  **'  V*  *'*  V*  *V  ■>1*  ***  V**  *'*  *•*  *'■*     / 
*t»    [A  if         *  'J   ?,«   *^%  *,*  J(*   J(»    *(»  ^(%    *(■  ^»  *,»  J,^  tf*  ^(S  ^*  *j^  *^  >(»  »^   *,*   ^»    J,1-  +f*  *,»  *f  rf(-»  »|»  »i*  ^»  >^  *(»   »|»   ^,»  ^J»  ^(»  *,»   »,^  ^»  t    *,■»  ^i*   *■,»  *j»    *^»  ^,»   -,s  >p    »,^  *,»  *(s  ?^t    *(*  ty   »(»       / 


/* 


*•*  Vf  sfe  i'*  ^:  V 


^•rf  *i*  ***  »•>  o*  *'^  ***  **^  ***  *'* 
*r  n*  *i"  'i"  *ix  "t"  *p  *p  *»*•  t 


*/ 


/O/  «v  v  ***  *V  **<•  *•«•  •**  *'*  ***  **•*  »**  ^V  V*  V*  V*  V**  *'*  ***  *'*  *'*  >**  V*  *'*  \**  *Pt  *ft  *f*  »'**'*  »y  »J*  *y  »"*  »y  *•*  »■/  »*»  >y  y*  %ff  *y  »**  ***  V*  V*  ***  V*  V*  V*  *V  *'*  V"  V-  V*  V*  V?  ***     / 


/*      FILE: 

VERSION: 

PPOCEDUFES 
DEFINED 


LEVEL1 .SKC 
ROWE    6-22-84 

RET$VP 
GETWCRK 
L0CATE$SE0 
SAVE$CONTSXT 

M0NI?0R$PRCC 


RDYTHISVP 
LOCATZ$EVC 
IDLF$PR0C 
GET5SP 


REMARKS: 

WARNING:      SEVERAL    OF    TEE    LITERAL   DECLARATIONS    PELCW 
HAVE    A    SIMILAR    MEANING    IN    OTHER    MODULES.       THAT    WAN- 
ING   IS    COMMUNICATED    ACROSS    MODULES    30UNDARIES.      3E 
CAREFUL    WHEN    CHANGING    THEM. 

*/ 

/■»*-  sV  O-  *v  »■-  »'■•  ■%''■  *y  «*<•  »i*  v-  "■"»  *i'»  *''  «V  V*  V'  *-'*  "i'-"  >V  y^  ■.'**,'*  •.irf  »'*■  v<  »^»  v  V'  *•'-  V'  »'*  »-'*  "■'■'  V'  »'*  vV*  V'  V'  ■>''  *■'»  V*  V-"  ■*''  V'  •''-  -•'•  ■*•'  »'-  V'  ■•'"  V*  V'  "*  °-  V'  ^'*  »'*     / 
^,%  ^|^  #,i  ?ji  *j^  »,»  J|k   *-[t  vjfc    *■,-    J(*  ^|*  ^,-^  »■,■.  »,*  ^j*  >,>  «|«  J,-  ^^    *j-.    ^«  >,-.    *,<«  *^»   J,.  -,-   «^«  >,«  *t-   A*  *p  *|*  ^*  •¥*   *(*  ^p*  ^C  T^  *f*  *1%  *l*  T*    *P  ***  *T*  ****  *P    *l*  *l*  *I^  *T*  *I*  *t*  '»*  *.*  'j'*  *v*     / 

L1$M0DULE:      DO; 

/*J*  *-*  /i    ^-*  *~v  »l*  »'^  ***  v'^  0»-  ».'j«  »*»  «.'«»  s1*  *■'*  »**  ***  *'*  «•'#  si*  *'■*  *'*  *l*  n'*  0»  *'*  %J—  «J*  »■>  »'*  »V  k**  V>  V^  »'*  V*  *•*  *'*  *'f  >i'*  **/  »'•■  *'*   »v  »'*  *'*  »**  V*  >'*  *■*'  *'*  »'*  *'*  *'*  **^  *'»  *'■*  *•'»      / 
*^*  t/^  0^    /•"'  vj  '•*  **%  *'    *•*  *l^  **•*  *'*  *•*     **     **  *'"*  ***  *•*     '       t*  ''*  *•**  '•*  *'*  *'*  ^*  *•*  *'*  *'*  *■'*     •*  *'*    ,%     ■    *•*  **^  **"*  *"*  **     "'*  *•    **■*  ***  *''*  ***    *    ***     '       '*  ***  *'*  **  **"*  ^*  *'     *'*  *,%  ***    / 

/  s;;  Hfi  >^  >Jc  ;f:  >;c  ^:  s,1;  >;<  >;<  s|;  s[j  ^  %.  ^<  ;^  ^  ^c  £  #  j^  5^  >^  #  ^<  ;|;  ^:  >;<  jjc  ^c  jj;  X:  X'  ^  X'  *  5J<  ♦  s>-' '.« Sr  <*  X;  >!«  >U  :'■<  >! :  *  o{  ^  >I<  'i:  >i»  X<  >r  >r  »1<  *!:  / 

/*      LOCAL    DECLARATIONS  */ 


DECLARE 
MAX$C?U 
MAX$VPS$C?U 

M.AX$CPU$$$^AX$VPS$CPU 

F^LSE 

READY 

RUNNING 

WAITING 

TRUE 

NOT$FOUND 

PORT$C? 

P0RT$C2 

?ORT$CE 

POETIC A 

RESET 

INTiRETURN 


LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


'10' 
'10' 

'100' 
'0' 
'1' 

w 

'7' 

'119' 
'255' 

'00C0H' 
'00C2H  ' 
'00CEE' 
'00CAH' 

'77H' 


/ 


J,n  7|4  ^^  3CS 


M 

IDLE 
IDLE 
INIT 
INIT 


CORTEX   **** 
CORTEX    **** 
^STACK$SEG 
$STACK$A1S 
$STACK$SEG 
$STAC^^ABS 
CORTFX    **':;* 
CORTEX    **** 
XTRACE    **** 


MCOPTEX 
MCORTEX 


MCORTEX 
"CORTEX 

MXTRACE 


*****  MCORTEX  ****  MCORTEX  ****/ 
*****  MCORTEX  ****  MCORTEX  ****/ 
LITERALLY  '0C80H',  /********/ 
LITERALLY     '0C800H',  /********/ 

LITERALLY  '0C8bH'f  /********/ 
LITERALLY  '0C880H';  /********/ 
*****  MCORTEX  ****  MCORTEX  ****/ 
*****  MCORTEX  ****  MCORTEX  ****/ 
*****    MXTRACE    ****    MXTRACE   ****/ 
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/#«#$   MXTRACE    ****   MXTRACE 
/*   IDLE$STACK$SEG 
/*    IDLE*STACF$ABS 
/*    INIT$STACK$SEG 
/*    INIT$STACK$ABS 
/*    MONITOR$STACK£SEG 
/*   MONITOR$STACK$ABS 
/****   MXTRACE   ****   MXTRACE 
/***#   MXTRACE    ****   MXTRACE 


#%s%:#%:    MXT-ACE 
LITERALLY 
LITERALLY 
LITERALLY 

LITERALLY 
LITE}-:  ALLY 
LITERALLY 


0C50H', 

'0C50^'H', 
'0C5SB", 

'0C583H', 
'0C60E', 

'0C600H'; 


MXTRACE   ****/ 
/********/ 

-I*  i*  i'  *r  *iv  t  i"  '.*  / 

/  'i-  1*  T  'I-  T»  T  V  T  / 

V,*  *-,V  *,»  *(»  *,*  S|*  »ts  »  .    / 


*y«  »,»  .-,<.  ^,-  *,«.  #^».  . 


*****    MXTRACE    ****    MXTRACE   ***" 


V 

/ 

V 


*****    MXTRACE    ****    MXTRACE    ****/ 


/».o  /-»  /~*     -\  y  %i«  *'*  N**  V"*  ***  »V  ***  *•*  O*  »'j"  »V  *'*  «M  %V  »**  *V  »*»  »**  »•*  *•■*  »•■*  V-*  V*  »V  *'■»  »V  *V  %*-»  ***  *''  »V  *V  %*^  *W  »■*  *'#  *'»  ■/*  »'»  >**  ■.'•  »**  %'.  J*  «i.  %>«  «.' 
"\"\/i  /\  jM  iL  n*  f  *t*  *i*  *x*  nfc  *>*  i*  *r*  *v*  •?  *»*  *i*  *»*■  n*  *c  'rf  *r  n*  *r*  *»"*  n*  v  *i*  *v  *iv  n*  n*  i*  -nr  n*  *\-  *r»  *p  i*  'f*  T-  *r  *T  *v  *v  *r  T  "r*  *>  n' 

/* 


/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 
/* 

/* 

/  A 

/* 
/* 

/* 
/* 


PROCESSOR    DATA    SEGMENT    TABLE 

INFORMATION    RELEVANT    TO    THE    PARTICULAR    PHYSICAL 
PROCESSOR    ON    WHICH    IT    IS    RESIDENT. 


PU^NUMBER: 


VPSSTART: 

V?$END: 
VPS$?ER$C?U: 

LAST$RUN: 


COUNTER: 


UNIQUE    SEQUENTIAL    NUMPER    ASSIGNED    T 

TEIS    REAL    PROCESSOR. 

VPM    INDEX    OF    THE    FIRST    VIRTUAL 

PROCESS    ASSIGNED   TO    THIS    REAL    CPU. 

INDEX    IN    VPM   OF    LAST    VIRTUAL... 

THE    NUMBER    OF    VP    ASSIGNED    TO    THIS 

REAL    CPU.       MAX    IS    15?. 

VPM    INDEX    OF    THE    PROCESS    MOST 

RECENTLY    SWITCHED    FROM    RUNNING    TO 

EITHER    READY    OR    WAITING. 

AN    AFBITPARY    MEASURE   OF    PERFORMANCE 

COUNT    MAD7    WHILE    IN    IDLE    STATE. 


r\ 


*/' 
*/ 

*/ 

*/ 
*/ 

*/ 

*/ 
*/ 
*/ 

*/ 

*/ 
*/ 
*/ 

;;;  / 

/ 

*/ 

*  / 


DECLARE    PRDS    STRUCTURE 

(CPU$NUMPER  EYTE, 

V?$START  BYTE, 

V?$END  BYTE, 

VPS$?ER$CPU  BYTE, 

LAST$RUN  BYTE, 

COUNTE}:  WORD) 


PUBLIC    INITIAL  (f\£  , '/  ,^,0,5 


f* 


/%*••   ^\  +      *     /-•  »«-  «>*  »'.  «JU  J*  -.'-  O*  •.'»  •>'«  -'■•  *'-  O*  »?#  «•«  •.!*  »•.   •Jm  » 
*r  L7  1    "]   M  'i*  *r  *i*  *i*  i*  't*  *r  *»*  *\*  *i*  ',"  *»*•  -»■•  *i*  i*  -i*  *r*  * 


»•*  V"*  *,rf  >'"•  ***  *'*  »**  *^-  *'*  •''  ***  ■»'■*  ^^  *'*  »r*  ***  »"'  »■-*  *'*  ***  •  *  *''  •■'-' 

^t1*  ^>   ■*(•  *•,»  >|»  »i^  ^|»   '(»  *-|»   '(*   »,^  *t*  ^|»  *(■»   *,•*  *|*  *,•»    »,  -  *|*   **,«  »_•   rj1*   >|-> 


^i-  O.    ^'. 


/*    GLOBAL    DATA 

/*  DECLARED 

/* 


BASE    DECLARATIONS 

PUBLIC    IN    FILE         'GLOBAL. SRC' 

IN    MODULE     'GL03AL$M0DULE 


.-.  *•,  U.  ^<,  *r,  ,-.   / 
'f  *i-  *i*  *i»  -r  *i*  / 

*/ 
*/ 


DECLAFE    VPM( 

:vp$id 

STATE 

VP$PRIORITY 

EVC$ THREAD 

EVC$.AW$VALUE 

SP$REG 

SS$REG 


MAX$C?US$$$MAX$VPS$CPU 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
WORD, 
WORD, 

WORD)   external; 


)    STRUCTURE 


DECLARE 

CPU$INIT 


BYTE    EXTERNAL, 
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HD*£INT$FLAG(  MAX$CPU  )  BYTE  EXTERNAL, 
MR$Y?S(  MAX$CPU  )  BYTE  F.XTEFNAL, 
NR$R?S         BYTE  EXTERNAL, 
GLOBALSLCCX    BYTE  EXTERNAL? 

DECLARE 

EVENTS  BYTE  EXTERNAL, 
EVC$TBL(100)  STRUCTURE 
(EVCS NAME       BYTE, 
VALUE         WORD, 
THREAD         BYTE)  EXTERNAL? 

DECLARE 

SEQUENCERS  BYTE  EXTERNAL, 
SEC$ TABLE (100)  STRUCTURE 
(SEO^NAME      BYTE, 
SEO$VAI.UE     WORD)  EXTERNAL; 

/»•»  ,-*  j\      r~  ^.   »».  *'*  **.*  »•/  »•*  *<*  »/*  «. :*  Or  »V  »■*  *'-  «■«  »**  <J .  fc*^  «j*  %*»  **«>  «J*  »'»  ^»  JU«  ■.•--  »i*  -.»*  *•*  «JU  »•*  »'•  *'-  0-»  »v  »'*  *'*  «J  ■  »*  »**  -•-»  »'«•  »•»  -<»  ■»'*  »•#  *'.»  *■»  *;»  ••*  **-  J*  .'*  •»'*  »*»  / 
*^  (A   T   i-^  [!  rt-   #,*  *,>•  *4fc  #%*  ?t->   *,*  .-.«■  *|*  *|»  r,N  *|V  *,»  *j-»  »,i  #|»  ?|-  ^g*.  .up  *j*.  *(»  >,»  ^p  »,*  Jf-  *p  »,v  ^--  *(*  »,•  rf*   *p  x,^  »,■»  «,»  »,-  *-,■.  »^»  tflfS  *4»  »,«.  y,-  »,■»  *,^  *,»  *,*  *j»  *,.,  *,»  .,■«  t,t   *p  »,»   / 

/*  DECLARATION  OF  EXTERNAL  PROCEDURE  REFERENCES  */ 

/*     TEE  FILE  AND  MODULE  WHERE  THEY  ARE  DEFINED  ARE      */ 
/*     LISTED.  */ 


initial^proc:  procedure  external;  end; 
/*  in  file:    initkk  .sfc  */ 
/*  in  module:  imit$mcd   */ 

await:  procedure  (evc$  id  ,  awa  i  ted*  v  s.lue  )  external; 

declare  evc$id  byte,  await 5d$ value  word; 
end; 

vpscheduler :  procedure  external;  end; 
/*  in  file:    schsd.asm  */ 

declare  intvec  label  external; 
/*  in  file:   5ched.asm  */ 

declare  intrsvector  pointer  at(0110h)  initial(gintvec ) ! 
/*  in  file  :   sched.asm  */ 

/  *\»  ty  1    Q/tV^ttVV  V  *i*  V  o*  5p  "i*  *i*  *r  V  t*  *(*  -i*  *P  '.'  V  V  5j:  *¥*  4»  *i»  *$C  3|t  *^  i,C  V  *>'  v  *i'  tti'V  *.*  *p  *r*  V  *  ;  V  *i*  *i*  V  ».*  ni*  V  'o  -i  *    / 

/*  THESE  DIAGNOSTIC  MESSAGES  MAY  EVENTUALLY  BE  REMOVED.  */ 
/*  THE  UTILITY  PROCEDURES,  HOWEVER,  ARE  ALSO  USED  BY  THE  */ 
/*   MONITOR  PROCESS.   THEY  SHOULD  NOT  BE  REMOVED.  */ 

/****  MXTPACE  ****  MXTRACE  *****  MXTRACF  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/*  DECLARE 

/*  MSC-K-)   BYTE  INITIAL  ('ENTERING  RET$VP   ',13,10,'%'), 

/*  MSG1A(*)  BYTE  INITIAL  ('    RUNN ING$VP$ INDEX  =   %'), 

/*  MSG4(*)   BYTE  INITIAL  ('ENTERING  RDYTHIS VP  ' , 13 , 10 , '% ' ) , 


109 


/* 
/* 

/* 
/* 

/* 
/* 

/* 

/* 

/* 
/* 

/"• 
/#DE 

/* 
/* 
/* 

/*0U 

/* 

/*EN 

/* 

/*00 

/* 

/*EN 

/* 

/*OU 

/* 

/*ou 

/* 

/*EN 
/* 

/*oa 
/* 

/*EN 
/* 

/*IN 

/* 

/*EN 
/-' 

/-IN 

/* 

/*3M 

/* 

/*IN 
/* 

/*EN 

#,<•  *r  *,■» 


SG4A(*) 

SG7(*) 

SG?A(*) 

SG?5(:;c) 
SG10(*) 

SG11(*) 
S  Gl  2  (  *  ) 
SG20(*) 
SG22(*) 
SG23(*) 
SG24(*) 


BYTE 
BYTE 

P  YTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 


S 

'ENTE 
S 

s 

'ENTE 
'UPDA 
'ENTF 

'ENTE 

'ENTE 

j 

N 


ET  VP  TO  READY:     VP  = 
RING  GETWORK',13,10,'%') 
ET  V?  TO  RUNNING:   VP  = 
ELECTEDSPRfi  =  %'), 
KING  IDLE$VP  ',13,10,  '%' 
TE  IDLE  COUNT  ',13,10,  '% 
RING  KERNE  LSI  NIT' ,10,13, 
RING  LOCATESE\'C  ',10,13, 
RING  LOCATE$SEQ  ',10,13, 
OUND' ,10,13,'%'), 
OT  FOUND', 10, 13,  '%'); 


), 

'ih, 


CLARE 

CR  LITERALLY  '0DE', 

l?  literally  '0ah'? 

t$char:  procedure(  crar  )  external; 

declare  char  byte? 
d; 

t<line:  ?rccedure(  line$ptr  )  external? 

declare  line$ptf.  pointer? 
d; 

T$NUM:  PROCEDURE(  NUM  )  EXTERNAL? 

DECLARE  NUM  BYTE; 

d; 

t$dnum:  procedure!  dnum  )  external; 

declare  dnum  word? 
d; 

t$hex:  prcceeure(b)  external? 

declare  b  byte? 
d; 

$char:  procedure  (  retsptr  )  external? 
declare  ret$?tr  pointer; 

D? 

$DNUM:   PROCEDURE  (RET$PTR)  EXTERNAL? 

DECLARE  RETSPTR  POINTER? 
D? 

$NUM:  PROCEDURE  (RET$PTR)  EXTERNAL? 

DECLARE  RET$PTR  POINTER? 
D? 

*  MXTRACE  ****  MXTRACE  *****  MXTR *CE  ****  MXTRACE  * 

*  MXTRACF  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  * 


$  # #  / 


/***  r%  «—\  r—t  ry   -»*  +f*  »•*  **?  *<*  *'*  ***  «■*'  *•*  »'*  *v  »>*  o*  »'-  %>.*  »»*  <tl>^  „o  «.<*  ***  »w  *»*  •.".  -•  ■  ^V  *»*»  V*  •>'*  V""  V*  *>'*  V*  ***  V*  V*  ***  V^  V*  »"■*  »'*  *'*  *''  i '*  i**  V*  •*»  V*  »'-  V<*  **  ■  °*  V*  / 
f  {/}  /*    (    *\  t  v  v  i*  v  *f  T-  +i*  »r  *t*  *r-  *i"»  *»*  *r  *i»  t*  *«*n»  *p  *r  *r  *i*  *i*  *p  *>-  ?i*  n5  n*  t  *i-  3i*  ***  ^ir*  *i*  *r  n*  t*  n^  n1*  *r*  "l*  *r  *i*  *r  3»*  ^i*  *r  *r  *p  3t*  *r  *>*  o*  / 


/*  STACK  DATA  &  I NITI ALI AZTI ON  FOR  SYSTEM  PROCESSES 
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DECLARE  IDLE^STACK 
(irN5TH( 030H) 
RET$TYPE 
BP 
DI 
SI 
DS 
DX 

cx 

AX 

EX 
ES 

START 
FL 


STRUCTURE 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
POINTER,  /*  IP,CS  */ 
WORD)  4T(IDLE$STACK$ABS) 


INITIAK 

0, 0, 0, 0, 0, 0, 0, 0,0, 0,0,0,0,0,0,0,0, 0  ,0,0, 0,?,  0,0, 
0,0, 0,0, ",0,0, 0,0, 0,0, 0,0, 0,0, 0,^,0,0,0, 0,0, 0,0, 
I  NT  $  RETURN  ,  7  A*  ,  0  ,  0  ,  0  ,  0 ,  "! ,  0  ,  0  , 0  ,  OIDLE$PROC  ,  230H  )  ; 


DECLARE 

INIT$STACK 

STRUCTURE 

(LE 

NGTH(030H) 

WORD, 

RET$TYPE 

WORD, 

EP 

WORD, 

DI 

WORD, 

SI 

WORD, 

DS 

WORD, 

DX 

WORD, 

CX 

WORD, 

AX 

WORD, 

EX 

WORD, 

ES 

WORD, 

ST  A 

7?T 

-.  a. 

POINTER,          /*    I?,CS    */ 

FL 

INITIAL! 

WORD )    A  T ( I NI T$  ST  A CK  $ ABS ) 

0,0, 0,0, 0,0, 0,0,?, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
I NTSRETURN , 7 AR , 0 , 0 , 0 , 0 , 0 , 0 , 0  ,0 , GI NI TI AL$ PROC ,200H  ) J 

/*  200R  SETS  THE  IF  FLAG  */ 


/i-fixx*   KXT?fiCE    **** 

MXTRAC: 

I   *****    p  XT?.  ACE 

/  #  #  #  #   M  X  T  R  A  C  E    *  *  *  * 

MXTRAC: 

E    *****    MX TRACE 

/*      DECLARE    MO\'ITOR$STACE 

STRUCTURE 

/*(LENSTH(030H) 

WORD, 

/*                RET$TY?E 

WORD, 

/*                BP 

WORD, 

/*                DI 

WORD, 

/*                SI 

WORD, 

/*                DS 

WORD, 

/*                DX 

WORD, 

/*                CX 

WORD, 

####  MXTRACr  ****/ 


MX TRACE 


*/ 
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/*  AX  WORD, 

/*  EX  VORD. 

/*  ES  VORD, 

/*  START  POINTER,         /*    I?,CS    */ 

/*  FL  WCRL)    AT(MCNITOR$STAC!C$ABS) 

/*  INITIALS 

/*    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0, 

/*0,0,0,e,?,0,0,0,0,0,0,?,0,<7,0.e,0,0,0,0,0,0,?,0, 

/*      I NT$RFTUR N  ,7  AH , 0  , 0  ,0 , 0  , 0  , 0 ,  0  ,0  ,0»MONITOE$  PROC  ,  200H    )  5 
/****    yxxp.ACE    ****   MXTRACE    *****    MXTRACE    ****   MXTRACE   ****/ 
/*###    ^XTrACE    ****    MXT?.ftCE   *****    MXTRACE    ****    MXTRACE   ****/ 

/.La   /^  ("T   .-—    J   fc**  *•»  O*  »'-•  »'*  ^trf  »'■•  «■'*»  »•»  *'*•  »*->  »•*  »'*  **"  *J*  »'-   »''  »*»  *'"'  *'"  »*■*  »'*  ^*»  »'■*  »'  '  ***  ">  •"  *'"'  *^  *''  ^f  *'*  *  -  »'"  **■*  •'*  "»**  » '•*"  »' '  **  *  "»'*  ^**  *•*<*  **  "  »'»  ■*'-  ***  *'-  **'  **»  *'*  *'-  ***    / 
*f*  (yH  ^  «^  f\     *f+   *p  ',*•  -»p  *,»  >p  »»p  "j1*  *\*  *(»  *)"»  #"i»  J)**  »-p  r(*   *,»  »|»  *p  *|»  'p  f*  *1*  "*|*  *(*  *i*  1*  ""l**  *t*  *".*  'l*  'I*  *l**  *i*  '•**  *l*  *l*  ','*  1*  "I*  *(*  T  'i-"  *•"  *P  *l*  "I*  *l*  *i~  •"!*  **'*  *l"  'i*  *t^  / 

/»<-   v*>  >i»   »'<•  *•*  *''•  V*  *'«•  **«•  *'"  *'*»  ■*'■•  «'-«  «»»>  %V  *'»  *<*  »»V  *<*  V  »A-   V  »V   *•*•  *•*  V*  ***  V*  *■••"  V ■•  V*  *'*  »'«*  ***  **»  *fr  "J*  V*"  >*•»   't*  •'*  "•*'  s1'  *'"  **-*  *■-*  **v*  *^*  •'i*  *>*r  »V  V*  "-'■'  *'«'  *-'f  *'■*  *'-*  *'•*      / 
,,»    »  »   Jp    ?p  ,»,■»   *,»    ^,~  ^«  J(%   /)■•   «|»  ^^    *>p  <^«   *,v  ^^   ^,>   ^-s  *^^  ^--  Jf+   ^j-.  y,i    a^o  ^i*   ^p  ^f*   ^, .   *,»  ^p  >p  *p  *^»  #lp  ^s   *^^  »|>  ^p  J(»  ^|»    >,*  f  Vp   *■]■«   *|»   ^»  *p    *p   *|».  ^jV  rp  >p  *-p  *p>   ^p   *-|--   ■*>--   'f-      / 

/*      EZT$V?        PROCEDURE                                                      ROVE    S-22-84      */ 
/* */ 

/*    USED    BY    TFE   SCHEDULER    TO    FIND    CUT    WHAT    15    THE    CURRENT      */ 

/*    RUNNING    PRCCESS.       IT'S    INDEX    IN    VPM    IS    RETURNED.  */ 

/*    CALLS    MADE    TO:      OUT$HEX  OUTiCHAR  */ 

/+> '    »  '    »'-     -;-    %'*   V'    »••*    *•*    •■  "     >'*    »*#    •-1-     »    *   *A«   V    ^^    »   *   -1''    *rr    J«    -    -     «V   »'.»    »'*    »V     *'•■   *'-     ■•'•■    ^'--   -■  '    «V    O*   V    •■'"    V-     -''     »    '    »'»    »'-      ■•'-    »'*    •»'-■   *'*    ~V    "-''    V'    »    '    *l*    »'-    »'*    -^     V'    •.'-    H'  -    ■»'»     »'  •    fc<*   V<         / 
*l%  *,»  *^f»   *i^  *|^  *p  *-p  *|»  *,»  *p  ^|*  *!■»  *p  *p  ^p  *(•  *,»  *,%  ^*  J,»  «ip   *p  «|*  »p  *^»   *p  J|»  *j»  ^-  *,••    *p  ^|»  *p   *j*  *|^  *p  ^,»  »p  Jp  ^^  »(»  *p  *^h  ^|»  Jp  ^<«  *p  *-p  *|»  »|%  --j.    *■  ■.   «...   J  -  --^   ^|%  *p  »«%      / 

RET$VP:    PROCEDURE   BYTE   REENTRANT    PUBLIC; 

DECLARE    RUNNING$V?tINDEX    3TTEJ 

/*.***   v-XTRACE    ****   MXTRACE    *****  MXTRACE  ****   MXTRACE   *  *  *  *  /' 

/****   MXTRACE    ****    MXTRACE    *****  MXTRACE  ****    MXTRACE    ****/ 
/*    CALL    0UT$LINE(C?MSG1  ); 

/****    MXTRACE    ****    MXTRACE    *****  MXTRACE  ****    MXTRACE    ****/ 

/****   MXTRACE    ****   MXTRACE   *****  MXTRACE  ****    MXTRACE   ****/ 

/*      SEARC5    TFE    VP    MA?    FOR    RUNNING    PROCESS    INDEX    */ 
DO         ?UNNING$V?$INDEX    =    PRDS . V?$ST «RT    TC    ?RDS.V?$END; 

IF   V?m(    RUNNING$VP$INDEX    ). STATE    =    RUNNING 

THEN    GC    TC    FOUND; 
end;    /*   DO  */ 
RUNNING$VP$INDEX    =    PRDS . LAST$ =UN ; 


FOUND: 


/  ».  -■->  y. 

*  *v  1-  h- 


/ 

/* 
/* 
/* 
/* 

/* 


MXT? 
MXTR 


iLL 
ALL 
ALL 
.*LL 


cl- 
ou 
ou 
ou 


R 

end; 


*  MXTR 

*  MXTR 
ITU  FN 

/*    RE 


ACE  * 
ACE  * 
TSLIV 
T$HZX 
T  $  C  HA 
T5CHA 
ACE    * 

ACE 

RUNNI 

TSV? 


jf:*^    MXTRACE    *^^^*    MXTRACE    5;":i*;''; 
***    MXTRACE    *****    MXTRACE    ****'- 

e(gmsgia")  ; 

(RUNNINGSYPilNDEX ) J 

R(CR) ; 

R ( LF ) ; 

s^j;:*   VXTRACE    5i;*>'.'5::5::    MXTRACE    *;;i5ii5;; 

***    MXTRACE    *****    MXTRACE    **** 

NG$V?$INDEX; 

PRCCEDURE    */ 


M  X  T  R  A  C 
MXTR AC 


.  ■-  -.-  »■»  v    J 
•r  *t-*  *r*  V  / 

*r  ^*  v  *.*   / 


MXTR  AC  r    ;<i:;i**/ 
MXTRACE    ****/ 
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/y*  /"*  a    A    n  y*  its  y*  ***  ****  ***  ***  V*  *•*  y*  ***  **'*  **"  ***  •**  y*  ***  V*  ***  V*  *"*  *'*  °*  ***  V*  *•*  ***  V*  ******  »**  v*  ***  »**  »'*  y*  v*  ■»■*  »**  »•*  *■*  »\»  -■  -  »■*  *•>  ,'.  ^  -,'..'.  v. ,   -  ,'.  .   / 
*5*  V  rt  i  f/i  1*  n"  n"T  'i*  *r  'i'  v  *.*  *v  i*  *»"  i*  I"  *r  "V  *(*  *i*  *i»  *r  *r  t  'i*  Hi*  *r  *T*  *i*  *r  ~i*  *r*  *c  n*  *r  *r  h-  n*  -v  *»*  *r*  *»*  "i*  *.*  ^-  *r  *r  *.c  *r»  *i*  *("  1*  *i*  h*  *p  / 

/*   RDYTHISVP      PROCEDURE                 ROVE  6-22-64    */ 
/* *  / 

/*   CHANGES  A  VIRTUAL  PROCESSOR  STATE  TO  READY  */ 

/* #/ 

/*   CALLS  MADE  TO:   OUT^HFX     OUT$CHAR  */ 

/>>*.  %'*  -j-   *■*  y*  ***  vi»  *>*  «v  *"v  fct*  V*  *"*  «■**  •*■**  V*  ***  ***  ***  vV  %**  ***  •**  *'*  ***  V*  ***  *'*  ***  **•»  **•*  »'*  ***  *"*  ***  ***  *■'*  ****  ***  **»  y  *  ***  >V*  *'*  ****  *'*  »■'*  *■**  *  *  V»*  %V  V-  **■'  *'*  *V  **•  »■'--  *■'*  / 
V  i'  -l-  i-  'i-  'i'  t  1-  'rs  t  t  o-  i'  'r  t  V  -r  r  r  ^  t  'i-t  t  ',■  >)•  T  i>  ^  -r  t  ',•  T  -^  ^  T  T  ^.  t  T  *,•  T  /r  -  *-p  *p  *,*  *,%  *p  37.  *f*  3,.  *y  *,-  rj*  *f  *,-  .■;-  / 

RDYTHISVP:  PROCEDURE  REENTRANT  PUPLIC; 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  **** / 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/*  CALL  OUT$LINS(0MSG4); 

/****  MXTFACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACI  ****  MXTRACE  ****/ 

PRDS .LAST$RUN  =  RET$VPJ   /*  SAVE  THIS  PROCESSOR  INDEX  */ 


J*  <*•-  V*   / 
T  V  V  // 


/****  MXTRACE  ****  MXTR.ACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTR.ACE  * 

/*  call  0ut$line((3msg4.a)  ; 

/*  call  out$hex(?rds.last$run); 

/*  call  oot^ch.ap(cr); 

/*  call  out$char(lf); 

/****  mxtrace  ****  mxtrace  *****  mxtrace  ****  mxtrace  * 

/****  mxtrace  ****  mxtrace  *****  mxtrace  ****  mxtrace  * 

v?m( prds. last^run) .state  =  ready? 

return; 
end?  /*  rdythisvp  procedure  */ 


** / 


/y>  /~t  aaa  ***  *v  v*  *■'*  ***  *"'  *l*  y*  v*  ***  Vc  ***  *v  *'*  *v  y  *  ***  ***  *'*  v*  v*  *'*  ■'*  *'*  v*  ***  ***  y*  ***  ***  ***  **•  »'*  >v  *■**  ***  v*  ^*  ***  v*  ***  *"*  ***  *?*  ^**  v*  ***  *v  ***>  v*  ^  *  •'*  ***   / 
•tt  tr*  £L  £L   1   *'*'    »   *i*  ***  *K*  *»  ****  *^'*  *<*  *>■"  *•  *»   *"i   "  "■»*  *»*  "^  *r*  *<*  n*  *i*  *t*  *!■*  *t%  *i*  ***  *i*  *i%  t*  t*  *i*  *i*  *i*  tp  •*!*  *r*  n*  *»*  •v  ^p  v  *•*  *i*  *»"  *c  *»*  t*  *i*  *i*  n*  *i*  *i*  *»*  / 

/*   SAVECONTEXT  PROCEDURE                  ROWS   2  APR  64  */ 
/# */ 

/*   SAVES  CURRENT  STACK  POINTER  AND  SEGMENT  IN  VPM         */ 
/# */ 

/*   CALLS  MADE  TO:  RFT$VP  */ 

/Of  y-  »•*  •.**  %>*  o*  v*  y*  %**  y*  >**  %•*  »•*  *•'  ***  »**  v**  ***  ***  ***  **»  *•*  ^v  *•*  »**  »**  ***  ***  »•<  ****  ***  ***  •"*  ***  »'*  **"*  ***  *'*  *'*  ■■**  "■**  *'-  v*  »**  ***  »v  *v  »•*  ***  ■»**  ***  »**  v*  *'*  ***  *'*  *"*  v-   / 
*(»■  *|"»  *|-»   *,»  *^*  »■(»   *|*  *|»  #p  ^|»  J,*  *,-*    *k»  *|*  »^*  rfi  *,*  *t*  •",*  *(*   #,v   *,x  >|%    *,*.   #|«    »,»  ^p   ^,-,  «■  4  *,»   S^    ,,»  »(»   *,S  *f*   #^»   «^%  *(*  J,-   *,fc   *.»  rp   J(»    *(»   *y»    ^(l    -^  ^t   »jt   ,(fc   ,p   3p   ?p  ^p   *p  ,f^   ,p   3j^      / 

SAVECONTEXT:  PROCEDURE  (STACK$?TR,  STACK$SEG)  REENTRANT 

PUBLIC- 


declare  (stack^ptr,  stack$seg)  word; 

ie  prds.last$run  <>  255  then  do;  /*  if  entry  is  not   */ 

/*  from  kore  start  */ 
vpm(ppds.last$run) .sp$reg  =  stack$?tr;  /*  save  stack  */ 
vpm(?rds.last$run) .ss$reg  =  stack$seg;  /*  state     */ 

end; 


end; 
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/»i,     s*t     a       »"\    r*  ***    fc'*  %,'r  V*    %}r   ***  %.**   »'«  V*  V*   »**   *'•»  »'»  V*  *•*  »'*    *'*  »•*    •*•»   O"   *<*  ***   »J*   *'*  •>  *   S*»   ***   k'-*   *>■*"  *V   ^*   fcV*    ,**-  »1-    *'*   »'■*  "4*  »**    *■**  "J-*   ■*'*   *'•   **■»   »*••   \*+  »'-    **■*  »1*  V*   ***    k1-1  ***   *■'''       / 
•F  £    a.  *-<  L *  •**  *»*  *■•*  i*  *P  *i*  o'Tt  *r  or  *v  *r  7<-  t>  *>*  *r  *r  *r  V  -r  *r  ix  i*  nr  ^r  *r  i*  n*  *r  nr  ***  *v  n*  i-  *r*  -i"  *r  *v  n*  *»*  '•-  ir  *i%  "t*  *r  t  *r  *r  *r*  t-  -v  *r  / 

/*      GET^SP  PROCEDURE  ROWS      2    APR    84    */ 

/* */ 

/*      RETURNS    STACK    POINTER    CE    CURRENT    RUNNING    PROCESS    AS         */ 
/*      SAVED    IN    THE    VIRTUAL    PROCESSOR    MA?  */ 

/* */ 

/*      CALLS    MADE    TO:    RET^VP  */ 

/*o  *v  Jf  *.o  v  »'»  »**  V"  ***  »•■»  >**•  *V  *v  »'*  *'*  V*  V*  »**  Vi»  *V  ***•  *V  *V  »**  V*  *'*  *•*  *'*  *'*  *'*  *V  *•■*  V*  fcl>  ■**  V*  V-  *^-  V*  V?  *■**  ***  ***  V*  *V  V-*  *'*  *'*  ***  **r  *'*  fcP*  \**  *'»  V*  »'*  *J*  •**     / 
»,•»  -i-  Vfi  7jZ  3£S  *,«.  3p  3,«  *,••  ',-  V  v  'i-  *r  *»*  3r  n*  T*  *>  *r*  i~  *r  n*  *r  *.*  *i*  *?  -»*  *i*  *r  iE  *r  3i*  *i~  *»*  *i*  t*  "r  3r  *.*  t*  i*  t  *.*  *p  ^i*  *i"  i*  *r  *r  *.*  *•.*  n*  'i*  t*  a-  i-  *i*  / 

GET$SP:    PROCEDURE   WORD   REENTRANT    PUBLIC; 


declare  n  byte? 

n  =  ret*vpi     /*  get  current  running  virtual  processor 
return  vpm(n).sp$res!  /*  return  new  vp  st.^ck  pointed 
end; 


*/ 
*/ 


ta1-  ^i*  ***  %  *   o*  %**  o^  »'^  %*^  *'*  ^i*  k'* 


ROWE      6-2?-- 


/»**  /^   j  ^"*,  /^  *'*  *'—  *'*  »*v  *'*  *'j  %'»  .»*»  «J^  »•-  fc>^  ^1*  »•*  »'»  s'»  V*  »'*  J*  »'*  »**  »*"»  »'*  ***  *'• 
'.-  CJ  AC  Q'.-  -<-  '•- 'i-  yi»  i~ '■-  -i-  '.-  V  *r  -i»  '.-  -i-  f  V  ».-»i»  ',-'i~  -i- 'i-  'i-  '.■ 

/*      GETWOFK  PROCEDURE 

/* 

/*      DETERMINES    THE    NEXT    ELIGIBLE    VIRTUAL    PROCESSOR    TO 
/* 

/*      CALLS    MADE    TO:      CUT$CHAR        OUT$LINE        0UT$BNUM 

/*•*  »'#  »**  »y  *,*£  wu  Vf  »**  <J,  ^U  »**  »'»  v  ***  Vf  *'*  *'*  **^  **'  •**  ■**  Vc  V*  V*  «■'*  s'*  *^  »V  ***  >^»  «J*  V*  »•*  »•*  »<>  v  ^V  »'*  ***  ^'*  ***  V*  *'*  *'»  *'*  •**  *t*  V'  V*  V*  ***  "r1*  >'- 
*,*    *(*  *f    Jj^   #!»   *|>   *^V    ■»,.  ^    ^p     *j%   j^.    Jx-*   s,-    ^,t    *■,.    ^,»    ft~    r{*    ^.   *y*    J(k    Ij*    ,-ji    r1,-    Jj»  *|»    *^t  ^p   ».p    ^,-,     #pi   r^    r^  *,»    ?,«   J^%    r.y »   ^  -    J,".    #J4   A-»  *^*    *j .   #g*    »-_-.    J*   J,-    Jp   Jj»  *■.»    I»  *, . 

GETWORK:    PROCEDURE   WORD   REENTRANT    PUBLIC; 


*/ 

6  4      */ 

*/ 

RUN    */ 
*/ 

*/ 

*fi  *,* ;,« ^i  *p  / 


DECLARE    (PRI.N.I)  BYTE; 

DECLARE    SELECTED$DER    WORD; 
DECLARE    DISPLAY  BYTE? 

/***#    MXTRACE    ****    MXTFACE    *****  MXTRACE  *^*"{    MXTRACE   ****/ 

/****    MXTRACE    *-i'***    MXTRACE    *****  MXTRACE  si'^*:!t    MXTRACE   ****/ 
/*    CALL    0UT$LINE(9MSG7); 

/****    MXTRACE    ****    MXTRACE    *****  MXTRACE  ****    MXTRACE   ****/ 

/****   MXTRACE    ****   MXTRACE    *****  MXTRACE  ****    MXTRACE    ****/ 

PHI    =   255J 

DO    /*    SEARCH    VPM    EOR    ELIGIBLE    VIRTUAL    PROCESSOR    TO    RUN    */ 
I    =    ?RDS.VP$START    TO    PRDS.VP$END; 
IE    /*    THIS    VP'S    PRIORITY    IS    HIGHER    THAN    PR  I    */ 
( (V?M(I) .VP$?RIORITY    <=    PRI  )    AND 
(VPM(I). STATE   =    READY))      THEN      DO; 

/*   SELECT    THIS    VIRTUAL    PROCESSOR    */ 

PRI  =  vpm(i) .vpspriority; 
n  =  i; 
end;   /*  if  */ 
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END?    /*    DO    LOOP    SEARCH    OF    VPM    */ 

/*      SET    SELECTED    VIRTUAL    PROCESSOR      */ 
V?M( N). ST  ATE    =    RUNNING; 
SELECTEDSDBF    =    V?M  (  N  )  .  SSSREC- ; 


/****    MXTRACE    ****    MXTRACE 
/****    MXTRACE    ****    MXTRACE 

LL    OUT$LINE((?MSG?A)  ; 

LL    OUT$HEX(N); 

LL    OUT^CHAR(CR); 

LL    OUT$CHAR(LF); 

LL    OUT$LINE((?MSG7B)  ; 

LL    OUT$DNUM(SELECTED*DBR); 

LL    OUTSCHAR(CR); 

LL    CUT$CHAR(LF)J 
MXTRACE    ****    MXTRACE 
MXTRACE    ****    MXTRACE 


MXTRACE 
MXTRACE 


*r  <v»  *r-  *r 


MXTRAC 


****    MXTRACE 


/* 
/* 

/* 

/* 
/* 
/* 
/* 

/* 


E  ****/ 

»t*  *i.  ji.    / 


CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 


V  T-  V  1" 


v*   »•*  V-  *■'-  *>* 
*,-  ~,.  *,»  *-,-  n. 

#  v  *  #  # 


MXTRACE 
MXTRACE 


•P  v  ■ 


V 


MXTRACE 
MXTRACE 


— ■ .  Vr  fct*  *■'* 

•v  *(*  'i»  *»- 
V  *?  V  V 


RETURN    SELECTEr$DBR 5 
END;    /*    GETWORK    PROCEDURE   */ 


/»'*  /~t   ?~    /t  ^\  *t*   »"*  ***  »'*  J*  *'  -  »'*  «J  -  »•*  >•**  »*»  »•»  >**  «l*  +A*   *•*  »•*  ***  *'*  >'«■  *'*  *■*  *^»  "J*  *■*•  ^V  »V  *'■"  »'^  ■'■»  *'■•  *A*  v*  ***  ■>'*  ^"'  "■*»  »**  »'*  »*■*  »''*  *t<  »**■  »■'*  *'>  «•'■*  »f*  *'»  \'*  *f*   *'»  *<»-«.'*   / 
*(»  [A   fc^  *-»  L<  »|*  *(■■  'i"1  *\»  *i*  *(-  *i"  *»»  *|*  *•*  *4»  *|*  *f  *|*  *|»  »|»  *|»  '|^  *i''  *(»  *.»  *f*  #p  *,»  *i'  *r*  *(■*  ~\-  *x*  *ih  *i^  *C*  *X*   *i*  *,*  *»*  "i*  *i*  *i*  *i*  *<*  *P  *T*  "»*  ***  'i1*  *C*  *t^  '»"*  *.*  1*  *t~  *»*  / 

/*      LOCATE$EVC    PROCEDURE                                                 ROWE    6-22-84         */ 
/* #/ 

/*    FUNCTION    CALL.       RETURNS    THE    INDEX    IN    EVENTCOUNT    TABLE      */ 

/*   OF   THE    EVENT    NAME    PASSED    TO    I T .  */ 

/* */ 

/*    CALLS    MADE    TO:      CUT$CHAR        CUT$LINE  */ 

/*>--  ■•*'  »' -  »'-  «V  »''  V'  »'•  »''  >'*  *■'-■  ^l-  »'*  V^  V'  »'  *  "r1*  *-'■»  *'■*  ••"'•  '•''    V-«  v-  *>>  «V  •-''  *'-  *'••  >'-  •>''  *'*  -1'  V'  ''*  »'*  *V  ,"1*  ■•  •*  *■'-  » '-  «J*  ^''  *'*  »"^  >'-'  ■•''  -'»  ■»' -  «'*  v1'  »'-  -<  ^  ■*'*■  V  >'*   '»*•'  *'*  v-   / 
*,*  #|»  #,■*  ^(»  *^  »,"  *■!»  *J»  *|S  >,S  »(-.  *^--  -,■•  J^s  ^  .  *,  .  J,x  «,»  *,-.  >j^  »t>»  *j-  #|<»  ^,  ,ji  ^p.  ip  »j^  J,-  ,(%  ^p  *->»  ^,»  *(^  «p  *.ji  »^  ^|«  tf.    «.j^  ^p  ^,>  *j,  J;^  ^  «  ^n  *^^  ^^,    >y»  »j*  *j»  *j,  tfj*  Jp  J_,  ,,i,  »v*  *■,«    / 

LOCATE$EVC:    PROCEDURE ( EVENT$NAME )    BYTE    REENTRANT    PUBLIC; 

DECLARE    EVENTS  NAME    BYTE; 

DECLARE    (wATCHtEVCTBL$INDEX)    BYTE; 

/****   MXTRACE    ****    MXTRACE   *****    MXTRACE  ****  MXTRACE  ****/ 

/###*   MXTRACE    **J,-:*    MXTRACE    *****    MXTRACE  ****  MXTRACE  ****/ 
/*    CALL    CUTiLINE(^MSG20*)  ; 

/****    MXTRACE    ****    MXTRACE    *****    MXTRACE  ****  MXTRACE  ****/ 

/****    MXTRACE    ****    MXTRACE;    *****    MXTRACE  ****  MXTRACE  ****/ 

MATCH    -    FALSE? 

EVCTBLSINDEX    =    2 ; 

/*    SEARCH    DOWN    THE    EVENTCOUNT    TABLE    TO    LOCATE    THE      */ 

/*    DESIRED    EVENTCOUNT    BY    MATCHING    THE    NAMES    */ 

DO   WHILE    (MATCH   =   F*LSE)       ftND      (FVCTBL$INDEX    <    EVENTS); 

/*    DO    WHILE   HAVE    NOT    FOUND    THE    EVENTCOUNT    AND    HAVE    NOT    */ 

/*    REACHED    END    OF   THE    TABLE   */ 

IF    EVENT^NAME    =    EVC$T3L( FVCTBLi I NDEX ) . SVC$NAME    THEN 
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MATCH  =   t-uf; 
ELSE 

EVCTBL$INBEX    =    E"VCTBL$INDF.X+1 ? 
end;    /*   WHILE   */ 

/*    IF   HAVE    FOUND    THE    EVFNTCOUNT    */ 
IF    (MATCH    =   TRUE)    THEN    DO  J 

/*    RETURN    ITS    INDEX    IN    THE    SVC$TBL    */ 
/sjs^jjs*   MXTP.  ACE    ****    MXTRACE    *****    MXTRACE    ****    MXTRACE    ***#/ 
/****   MXTRACE    ****    MXTRACE   *****    MXTRACE    ****   MXTRACE    ****/ 
/*        CALL   0UTSLINE(GMSC-23)  J 

/#$##   MXTRACE    ****   MXTRACE    *****    MXTRACE    ****    MXTRACE    #***/ 
/****    MXTRACE    ****    MXTRACE    *****    MXTRACE    ****    MXTRACE   ****/ 
RETUFN    FVCTFLilNDEX; 

end; 
else  do; 

/*  return  not  found  code  */ 
/****  mxtrace  ****  mxtrace  *****  mxtrace  ****  mxtrace  ****/ 

/###$    MXTRACE    ****    MXTRACF    *****    MXTRACE    ****    MXTRACE   ****/ 
/*         CALL^0UT$LINE((?MSC24)  ; 

/****    MXTRACE    ****    MXTRACE    *****    MXTRACE   ****    MXTRACE   ****/ 
/####   MXTRACE    ****   MXTRACE    *****    MXTRACE    ****    MXTRACE    ****/ 
RETURN    NOT$EOUND; 
end;    /*   ELSE   */ 

END;    /*    LOCATE5EVC    PROCEDURE    */ 


/»•*  /-»  y^  ^T  r~%   »•*  *-'*  *'«•  *•*  V*  >•"  *■••»  »**  *•*  »'#  »'*  *V  »'*  *V  V*  *^  •  SV  V*  *"*  *V*  »**  ***  %V  V*  *  *  V**  ***  »'*  **^  *V  »'"  *'*  **■*  V"  *V  ***  **»  »**  *•*  *•*  »'»  »•■»  »••*  »'  ■»  **^  »v  »>.»  **»  »'*  *•*  »'-  *V   y 
*(-.  /  fl  w  \  /  *p  *■(»  *■>*  *i*  *f*  *»*  ■*»*  i*  *i*  *^*  *p"  ^p  *•*  *i*  *i*  *t*  *i*  *i*  i*  *i*  *»*  *t*  *t*  *i*  *■*  hp  t*  'i*  ****t*  *i*  •"!*  ^r*  *i*  *r*  '»*  *<*  *p  'i*  **i*  *i*  'p  *i*  *•<*  ^*  *p  *i*  ^**  "i%  *i*  np  *p  / 

/*      LOCATE$SE0    PROCEDURE  POwE    6-22-84    */ 

/n-— — — — — — — .  —  — — — —  — .  —  —  — —  —  —  —  ________ _  — —  ___-,-  / 

/*    FUNCTION    CALL    TO    RETURN    THE    INDEX    OF    THE    SEQUENCE-  */ 

/*    SPECIFIED    IN    TH?   SEQ-TAELE.  */ 

/# *  / 

/*    CALLS    MADE    TO:      OUT$LINE  */ 

/»•*  »■>  *'*  *A*  V*  ***  V*  V*  »*^  »*rf  »**  *'■*  *V  »'*  *'*  V*  *V  *'*  ^**  V*  V*  %•*  V*  V*  *'*  V*  V*  ^V  V*  »'<*  »'*  *•'*  »'/»  *'*  V*  »V  *"y  V*  V»  %V  t'-  v*  V*  **■*  »*«•  **■*  *  *  »'*  s'*  V*  **'  •>'*  ^'*  +■' *  »*^  v»  ■*■*'   / 
*,*  •(*  *,»  *y*  ^^  »p  ^j*  *f«  *,*.  *^»  #|*  *,%  *p  *,*  «^»  *g+  *]*  *j-  ^»  ^*  if*   #p  *p  ^1*  ^»  ^  ^»  Jj*  ^»  ^(»  *(>»  *,-»  ^,^  *,*  *!«»  -j-  »,s  ^p  *p  ,p  »,n  ^j-  3^*  ^j-  <^«  *p  «p.  ^»  ^,*  ?,«  •■}*  *-p  *t»  *i*  *|*  *t»  "l*  ' 

LOCATESSEO:       PROCEDURE (SEO$NAME )    BYTE    REENTRANT    PUBLIC? 

DECLARE    SEO$NAME    BYTE; 

DECLARE    (    MATCH,    SEOTRLSINDEX    )    BYTE; 
/****    MXTRACE    ****    MXTRACE    *****    MXTRACE    ****    MXTRACE    ****/ 
/****   MXTFACE    ****    MXTRACF    *****    MXTRACE    ****    MXTRACE   ***#/ 
/*    CALL    OUTSLINE(0MSG22) ; 

/****    MXTRACE    ****    MXTRACE    *****    MXTRACE    ****    MXTRACE    ****/ 
/****    MXTFACE    ****    MXTRACE    *****    MXTRACE    ****    MXTItACI    ****/ 

MATCH    =    FALSE; 
SEOTBL$INTEX    =    0! 

DO    WHILE    (MATCH    =    FALSE)    AND    ( SECT3LiINDEX    <    SEQUENCERS); 
IF    SEQ$NAME    =    SFOSTABLE ( SEOTBL$I NDEX )  .  SEO$NAME    THEN 

MATCH    =    TRUE? 
ELSE 

SECTBLSINDEX    =    SEQTEL$INDEX    +    1? 
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/*    WPI 
(MATCH   = 

*  MXTRACE 

*  MXTRACE 
CALL    OUTS 

*  MXTRACF 

*  MXTRACE 

RETURN    SF 

end;  /*  i 
se  do; 

*  MXTRACE 

*  MXTRACE 
CALL    CUTS 

*  EXTRACT 

*  MXTRACE 

return  no 

end;  /*  e 

end;    /*   LCCAT 


en: 

IF 

/* 

/  #  i'fi  ?< 
/  *!*  V  V 


EL 

*.»  V  V 

/* 

f  'I"  *|- 

*r>  *c  *i* 


MX TRACE 
MX TRACE 


LF    */ 
TRUE)    THEN    DO; 

#$##    MXTRACE    y':*!';**    MXTRACE    **** 
$*##    MXTRACF    *****    MXTRACE    **** 

LINE(0MSG23); 
**#*    MXTRACF    *****    MXTRACF    ****    MXTRACF 
$$$#    MXTRACE    *****    MXTRACE    **** 

OTBLSINDEX; 

F    */ 


MYTP 


XTRACF 


ns  *r  nr  *i* 


MXTRACF    ***** 


MXTRACE    *** 
*    MXTRACE    *** 


MXTRACF  ** 
LINE(0MSG24)J 

****   MXTRACF  *****   MXTRACE 

****    MXTRACE  *****    MXTRACE 

tsfound; 

LSF    */ 

E$SEQ    PROCEDURE    */ 


MXTRACE 
MXTRACE 

MXTRACF 
MXTRACE 


:  #  #  #  / 
•  *r  *i*  'r  / 

!***/ 


:  *t-  *r  V  / 

.  »**  *»-  «.-..  / 

:***  / 


/*■»  ^  ^«  ^\  *■•*  »»..  *•*  «•*  %»rf  v*  v*  ***  **'  *V  ***  ***  *'*  V*  *'*  if*  ^**  sV  V*  V*  "J1*  ***  *'*  *^  *'-  **^  ***  V*  »•*  \**  V*  ^^  ***  V*  V*  "f  *V  *"*  V*  •J*  V*  »'*  *'*  *>V  V*  ^!*  %V  v*  *•'  *  Vr  *'"'  s1*  V-*  V* 
***  C^Q  ^M***  *,*'w^*,,'  ^%  ^*f  •Vi*  ^*P^P  3."  ■**  V*r  VT3v"r'«-T*rl%vrTVTJr  T"i*  *r- *i*  Is  n**^  V  "r  V  *^n*  *r  *r  -ri»  ^  *■«  ^  *r  V  V  *p  / 

/*V  -'*  «'■»  »'--  >''  •>'■•  »V  *•' '    «J'  s>^  %'■»  V*  "»V  >'-  V'  *'"  %*+   "•'■*  *■'-  -'»  s'-  "•'»  v1.*  "^*  V'  >V  •»**  »*■■  *'•  "■  '  *  »-'•'  ■■'■*  «■'*  "■'"  •>'■"  V'  — **  »*"•  *-'*  **-■  »*■»  *'-  *•**  *'-  V'  *-'»  »V  """'  "-'«  "■*»  •'*  «■'■  ■"'»  »*»  "J'   -'-  °  *  «.'■«    / 

/*      SYSTEM    PROCESSES  */ 


/* 

/* 
/*• 

/* 

/* 
/* 

/* 
/* 

/* 

/*. 

/* 
/* 


-'-  - 'r   •.'-  •.' .  «.'-  *■«  o*  -'*  *j »  v1  -  ■«.'-  •j,  •/.  i1*  ^j -  O'  «J*  »i*  v<  *•  •  v'»  -' »  ••'j-  V'  "^*»  V'  ■»■*  ■«-''  »' -  +)*   *V  *■' '  ^'*  V*  V*  V*  «"»  V'  »'*  "■'*  *'  -  >' -  V'  *'»  ■•' -  •*'  »'*  -'-  »'*  » ■  -  fc'*  *'*  V'  V* 

«jf»  *,»  J|»  ry-   *,-*  ^,".  *p  »^»  *p  *|%  *y*  *I*  *I*  *T*  *t*  *!"*  T*  *T*  T*  1*  T*  ^*  *t*  *lf*  1*  T*  *i"*  *P  *T^  *1*  *!*  ^>*  *»*  *T"   *1*  *t*  'l*1  *!**  *t^  *4%  *«*  H*  ^*  *»"*  *|fc  *»*  ""l*  'I*  *»*  '»*  *«*  *l*  *l*  'l*1 


IDLE   PROCESS 


RCfc'ji;      6-22-64 


if.  if  if  I 
*/ 


THIS  PROCESS  IS  SCHEDULED  IF  ALL  OTfiE?  PROCESSES  IN 
THE  VPM  /RE  BLOCKED.  THE  STARTING-  ADDRESS  IS  PROVID 
TO  THE  IDLF$STACK  AND  PLACED  IN  PRDS  -  IDLESDBR .  A 
COUNTER  IS  INCREMENTED  ABOUT  EVERY  SECOND.  THE  COUN 
IS  MAINTAINED  IN  THE  PRDS  TABLE  AND  IS  A  ROUGH  MEASU 
CF  SYSTEM  PERFORMANCE  BY  GIVING  AN  INDICATION  OF  THE 
AMOUNT    OF    TIME    SPENT    IN    THE    IDLE    PROCESS. 


CALLS    !*ADE    TO: 


PLM86    PROCEDURE    'TIME' 
OUTSLINE 


/V*  ***  +**  V-  V*  V*  V-  *'*  ***  V*  ***  V'  ***  V*  ^*  »'*  **•  ***  *'■*  **?  ^*  V^  V*  *V  *'*  ***  *"""  *t-  »'*  *'■*  ^V  *iV  »'*  ■»**  ^**  *V  ~J'  V*  ^*  «-^  *•*  *V*  >V  *V  »**  •»'■•  »'*  »-'^  *<j  »'*  ••'#  »•*  *'*  *■*  v1^  * 
*k"  *i*  t  ttv  *r  t*  i*  n*  nx  ^i"  -i"*  *\-  *r  t  *i*  t  *r  tt  •T,n,•  *r  *i"  nr  ***  *r  *r  *i*  ^r  Jr"  *i»  *»*n*  *r  a*  n*  T1  t  **r  ir  n*  *r  *»**»**»•  n*  *r*  t  *»*■  i*n*  *r  *?  • 

IDLE$PR0C:      PROCEDURE    REENTRANT    PUBLIC; 


*/ 

ED*/ 

*/ 

T    SV 

Fa!*-/ 
*/ 
*/ 

--*/ 
*/ 
*/ 


DECLARE    I    BYTF; 


/****  MXTRACE  ****  MXTRACF  *****  MXTRACF  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/*    CALL    OUT$LINE(0MSG10) ; 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
^sjc**^    MXTRACE    ****    MXTRACE    *****    MXTRACE    ****    MXTRACE   ****/ 


/*      DELAYS    ONE    (1)    SECOND      JV 
LOOP:    DO    I    =    1    TO   4?; 
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CALL  TIMF(  250  ); 
end; 

/****  mxtrace  ****  mxtrace  *****  mxtrace  ****  mxtrace  ****/ 
/###*  mxtrace  ****  mxtracf  *****  mxtrace  ****  mxtrace  ****/ 

/*     CALL  0DT$LINE((?MSG11); 

/**#*  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/****  MXTRACE  ****  MXTHACE  *****  MXTRACE  ****  MXTRACE  ****/ 


end; 


pp.ds  .counter  = 
go  to  loop; 

/*  IDLE$?EOC 


PP.DS.  COUNTER  +  1 


*/ 


/*07 

/* 

/*— 

/* 

/* 

/* 
/* 
/*— 

/* 

/* 
/* 


MONITOR  PROCESS  ROWE  6-22-84 

THE  MONITOR  PROCESS  IS  INITIALIZE!  BY  THE  OS  LIKE 
INIT  3NJD  IDLE.   IT  HAS  THE  RESERVED  ID  OF  0FEH  AND  A 
PRIORITY  OF  0E.   IT  IS  ALWAYS  BLOCKED  OR  WAITING  UNTi: 
IT  IS  PREEMPTED  BY  TFF  USER. 


CALLS  MADE  TO: 


OUT$LINE 
OUT$DNUM 
IN$NUM 


OUT $ CHAP 
IN$DNUM 


*/ 
•*/ 

*/ 

*/ 
.*/ 

*/ 

■  *  / 

*/ 


*/ 
*/ 

/•Xr  *}+ o*  »•*  v*  ^v  ***  »'■'  »'■•  **-  »■.*  *<*  »■*  *•-  v*  *•*  «rM  *•»  »'"•  *t*  v*  ***  **■»  ***  v*  »v  ***  v-*  ***  *'*  v*  *'*  V-*  ^*  *'*  ***  *v  *'—  ***  ***  v^  *'*  ***  *'*  >**  ***  ***  v *  ***  *'*  **■*  **?  v*  •**  >'*  *'"*  v*"  *'*  / 


/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  **** 

/*#**  MXTRACE  ****  MXTRACE  *****  MXTRACE  **** 

/*  MCNITOR$?ROC:   PROCEDURE  REENTRANT  PUBLIC? 

/* 

/*  DECLARE 

/* 

/* 

/* 

/* 


/ 


* 


PTR  POINTER, 

PTR2  POINTER, 

PTR3  BASED  PTR2    POINTER, 

ADDR  STRUCTURE  (OFFSET  WORD 
CONTENTS  BASED  PTR  BYTE; 


MXTRACE 
MXTRACE 


■»'*  V"  v*  ***     / 
,,,  Xf.  >r  v  / 

'/•  *r  V  *i*  / 


EASE  WORD) , 


/*  DECLARE 

/*  (LINECCMPLETE,  LC0P2)      BYTE, 

/*  (QUANTITY,  COUNT)    BYTE, 

/*  (INCER,  INDEX,  VALID5CMD)  BYTE; 

/*  LOOP:   VALIDiCMD  =  0? 


/* 
/* 

/* 

/* 
/* 
/* 
/* 


CALL  OUT$CHAR'CR); 
CALL  OUT^CHAR(LF); 

CALL  OUT$CEAR(  '  .  ') i 
DC  WHILE  NOT  VALID$CMD; 
CALL  INSCH«R((?INCHR)  ; 
IF  (INCER  =  'D')  OR  (INCRR 
VALID$CMD  =  0FFHJ 


=  'S')  OR  (INCER  -  'E')  T^EN 
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/*   IF  (INCHF=64H)  OF  (INCHR=65H)  OP  (INCHR=73H)  THEN 

/*  VALID$CMB  =  3FFH; 

/*   IF  VALID$CMD  -  0FFH  THIN  CALL  OUT$CHAR ( I N CHR ) J 

/*     END;  /*  DO  WHILE  */ 

/*     IF  (INCHR  =  'D')  OR  (INCHR  =  64H)  THEN  DO; 

/*  /*  DISPLAY  COMMAND  SECTION  */ 

/*  CALL  IN$DNUM(G*ADDR.BA3E); 

/*  CALL  OUT$CHAR(  ':  ')? 

/*  CALL  IN$DNUM((?ADPR. OFFSET)  5 

/*  PTE2  =  0ADDRJ 

/*  PTR  =  PTR3; 

/*  /*  CONTENTS  SHOULD  NOW  BE  SET  */ 

/*  DO  WHILF  (INCHFOCR)  AND  ( I NCHR< >23H ) J 

/*  CALL  INSCEAR(eiNCHR); 

/*  END?  /*  DC  WHILE  */ 

/*  IF  INCHR  =  C?  THEN  DO; 

/*  CALL  CUT$CHAR(  '-'); 

/*  CALL  OUT$NUM ( CONTENTS ) ; 

/*  CALL  0UT$CHAR(CR)5 

/*  CALL  OUT^CEAR(LF) J 

/*  END;  /*  IF  NORMAL  1  \DDF  DISPLAY  */ 

/*  IF  INCHR  =  23H  THEN  DC; 

/*  count  =  e; 

/*  CALL  OUT$CHAR(  '#')? 

/*  CALL  INSNUM(OQUANTITY) ; 

/*  DO  WHILE  QUANTITY  >  0; 

/*  C*LL  0UT$CHAR(C?  )J 

/*  CALL  OUT$CHAR(LF)  ; 

/*  CALL  0UT$DNUM{ ADDR. BASE)! 

/*  C£LL  0UT$CHAB(  ':  ')• 

/*  CALL  OUT$DNUM( ADDR. OFFSET ) ; 

/*  LINECOMPLETE  =  FALSE; 

/#  DO  WHILE  LINECOMPLETE  =  FALSE; 

/*  CALL  0UT$CHAR(  '  ') ; 

/*  CALL  OUT$NUM'CONTENTS) 5 

/*  ADDR. OFFSET  =  ADDR. OFFSET  +  1; 

/*  ?TR  =  PTR3; 

/*  QUANTITY  =  QUANTITY  -  l; 

/*  IF  ( (ADDR. OFFSET  AND  000FH)=0>  OR 

/*  (QUANTITY  =  Q)    THEN  LINECOMPLETF=TRUE J 

/*  END;  /*  DO  WHILE  LINE  NOT  COMPLETE  */ 

/*  END?  /*  DO  WHILE  QUANTITY  */ 

/*  END?  /*  IF  MULT  I  ADDF  DISPLAY  */ 

/*     END;  /*  DISPLAY  COMMAND  SECTION  */ 

/*     IF  (INCHR='S')  OR  flNCHr=73H)  THEN  DO; 

/*  /*  SUBSTITUTE  COMMAND  SECTION  */ 

/*  CALL  IN$DNUM(CaADDR.EASE)  ; 

/*  CALL  CUT$CHiR(': '); 

/*  CALL  IN^DNUM((?ADDP. OFFSET); 

/*  CALL  OUT$CRAR(  -'); 

/*  PTR2  =  3ADDRJ 
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/*  ?TR  =  PTH3J 

/*  /*  CURRENT  CONTENTS  SHOULD  NOW  3E  AVAILABLE  */ 

/*  CALL  OUT$NUM( CONTENTS) J 

/*  LOO? 2  =   true; 

/*  DC  WHILE  LC0P2  =  TRUE5 

/*  DO  WHILE  (INCHP.O',  '  )  A.ND(  INCHRO  '  ') 

/*  A.ND(INCHROCR)  ; 

/*  CALL  IN$CHAR(0lNCEE)i 

/*  end; 

/*  ie  (inchr  =  ci)  then  l00p2  =  false; 

/*  ie  (inchr  =  ',  ')  then  do  j 

/*  /*  SKIP  THIS  ADDfi  ftND  GO  TO  NEXT  FOR  SUB  */ 

/*  CALL  OUT$CEAR(CR) I 

/*  CALL  OUT$CHAR(LE) J 

/*  «DDR. OFFSET  =  ADD?. OFFSET  +  l; 

/  *  ?TR  =  PTR3* 

/*  CALL  OUT$DNUM(AEDR.BASE); 

/*  CALL  OUT$CHAR(  ': ')» 

/•  CALL  OUT$DNUM (ADDR. OFFSET ) ; 

/*  CALL  CUT$CHAR(  '-')! 

/*  C*LL    OUT$NUM(CONTENTS ); 

/*  END;   /*  IF  SKIP  FOR  NEXT  SUP  */ 

/*  IE  (INCHR  =  '  ')  THEN  DO  5 

/*  CALL  OUT$CHAR(  '  '); 

/*  CALL  IN$NUM(GCONTENTS ) ; 

/*  DO  WHILE  (INCHROCE)AND(INCH?.0  ','); 

/*  call  inscharoinchr  )  j 

/*  end; 

/*  if  (inchr  =  cr)  then  l00p2  =  false; 

/*  if  (inchr  =  ',')  then  do? 

/*  CALL  OUT$CH.i?.(  ',  ')  ; 

/*  ADDR. OFFSET  =  ADDR. OFFSET  +  15 

/*  PTR  =  PTR3J 

/*  CALL  OUT$CHSR(CR); 

/*  CALL  OUT$CHAR(LE) J 

/*  CALL  OUT$DNUM( ADDR. EASE); 

/*  CALL  0UT$CHAB(  ':  ')  J 

/*  CALL  OUT$DNUM( ADDR. OFFSET ) ; 

/*  CALL  CUT$CHAR(  '-')? 

/*  CALL  CUT$NUM'CONTENTS )? 

/*  END;  /*  IF  CO  TO  NEXT  ADDR  */ 

/*  END;  /*  IF  CHANGE  CONTENTS  */ 

/*  INCHR  =  'X'J  /*  REINITIALIZE  CMD  */ 

/*  end;  /*  loop,  continuous  sue  cmd  */ 
/*   end;  /*  substitute  command  section  */ 

/*   if  (inchf='e')  or  (inchk=65h)  then  do; 

/*  /*  find  out  which  vps  is  running  'me'  */ 

/*  index  =  rft$v?; 

/*  /*  now  flock  myself  */ 

/*  disable; 

/*  peds  .last$run  =  index; 
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/* 

/* 
/* 

/* 


7PM( INDEX) .STATE    =    WAITINI 

call  vpscheduleh;  /*  no  return  */ 
end;  /*  if  */ 

70  TO  loo°; 

end;  /*  monitor  process  */ 

/*-.,-**  mx TRACE  ****  MXTRACE  *****  MXTRACE  *! 

/##*#  MXTrACE  ****  MXTRACE  *****  MXTRACE  *! 


MXTRACE  ****/ 
MXTRACE  ****/ 


/%t«  /-»  ^"S   f™ '   ^  »t*>  %'rf  »•*  »l*  »*..  »'.»  O*  v'j  »'.  »'.»  * '-  -J.  »',»  »'*  J*  »**  ■»">  **-  *\#  *'•  if*    »•*  »**  »■'*  »**  ***  ■»'*  »'*  »'•»  **•  »'-  *'rf  *V  »'«  »'»  »'*  »**  *'*  *'■*  «•'*  »'*     -  %'»  *'*»'-  »'*  *'»  ••**  •«"  -  »'»  *'-  »1a  1U  / 

.,»  I  A   {^    i«*^  l>"\  •(»  *,■»  *|»  #^%  *(»  *,*  *,*  -,»  »!«  *|»  *,»  »|»  »,%  *t»  »(*  *_•>  *■,»  >(%  »,■»«,   »■!*  *,■•  *,»  *(»  *|»  *|*  »,-»  »|»  «|»  I"  »,»  #("»  »(•»  #|»  *,  ■  *|»  >,»  *(■*  «|»  *»t*  *-,%   _»  ^*  »|-«  rt*   -,»  #■,■  *t»  *.«  #,»  >|'  ip  .  .  / 

/«A*  V'  ***  V-*  »■*  V*  ***  *•*  V"  ***  V*  *'»  *  *  *r*  •**  *V  V*  V*  •.•*  s'»  *'*  V*  V<  V*  *'*  s''  s**  »**  V  V-  *■**  *■**  *'/  *J '  *'*  V*  ***  V*  V*  *'*  ■»'*  *'<*  *'*  *''  **•  V-*  *'-■  »V  >**  **■*  »**  *'*  »'•  »"»  »**  V*  »'»  V*  / 

«-,»  rf(»  *,*  *j»  »|*  rf(»  *)»  *f»  ^|»  *|»  J,»  *|*  *|*  *j^  »,^  *,*•  *|*  #j-»  *f*  ^(*  ^|^  #,»  *^  rf,*  *j»  *,*  r(»  *f»  *,»  *"|»  »|*  *|*  >)*  •j*  *^»  'i*  *,■•  >(»  >\*i  *[»  *t»  *^^  *|*  *,^  »|*  >|»  *,»  *(v  >|*  ^j»  ^,^  *,»  *|fc  *^--  >,-  J,-  *(*  #j»  / 


STARTING  POINT  OE  THE  OPERATING  SYSTEM 


■*/ 


/*  ROUTINE  INITIALIZES  TEE  OS  ANT  IS  NOT  RSPE/TET. 

/«•«  »■*  »■#  v>  »v  *■*  ***  v*  »•'  v*  *v  *•»  ^^  **■•  >**  *''  »w  **<•  *■'*  ***  ***  ^*  *'*  ^^  *'*  »■*  »'  »■*  ***  v*  *fe  *'*  »'*  **?  V*  *'*  *•*  *'*  ***  »**  *^*  *■*  *"-  ***  *V  *'*  ^'*  ***  *'*  ***  ***  *"*  *  *  y*  ***  *'*  *■*  *'*    / 
*^«   *|*  *,«   ?|^  »(H  r.  v   ^.  »   »|«   ^t,   >,.   *,^  »,-    *.,^    *■,  .   ?|»  *,«   -,-.  *,■»  *t«  rf%  »|»   »,■  »,*   *•,«■   ry*    0p   +f  *t»  »j»  i t»  ^^   »,»   *^»  >}»  ^»   ^*  *t-"  »j*  »|»  *|»   *)■»  »|-»  *p    *,»  *,^  *,»   *,»  *(-     *[»   »]*   *(»    *,»  r(»  *f    *)••   «p   »p    >J*        * 

/k'rf  y^  »'*  »'»  v*  »**  *'*  **•'  *'*  »'*  *V  »'*  *'*  »'■'  ^V  **'  V*  *'^  V*  *'*  *'*  *'*  ***  ***  V*  V-  *V  »'*  *'*  *'»  ,^Lr  ***  »' '  «,^-J'*v*V**'"  *''  V*  *'*  V-*  *'*  *1*  •**  ■'■*  *•'*  »'*  ^^  V*  » '*  *'■'  "**  *'*  »'•  *  '  -  ■*  *'••     / 
•^p«   *|*  *p    ^1*  *|*   *f*   *{>•   »|»  ^*   *|^  *^  #|*   *t-*   *(*   *|»  *|»  *(*  *■(*   *)■•  *"t»  »(■»   *■!»  »|»    »p   *|*   /j^  *f*    »j»   *^»  *■)»   '(>   *-(^  'j*    ^f«  ^i*    '|»   *t~   »^f»    ^»   >|^    't"  >i>   -^»     ',»   •%      *(-    *p   •',«■    *1 »    >j»  ^|N    ••,*  *^>   *p   *(••    #,      r ,-   ^p      / 

/*  TO  IMITIALIZE  TEE  PRPS  TABLE  FOR  TEIS  CPU  */ 
DECLARE  CPUSPT?  POINTE?  DATA ( GPRDS .C?U$NUMREP ) , 

zz  eyte; 
disarle; 


/  tf.  ^  .>;:  s;c  m  X  T  F  a  C  E  * y,i  **  K  X  T  R  A  C  E  *  *  * >;:  *  M  X  T  ?  ACE  *  * ::s  *  M  X  TRACE  :;'  *  :',c  ',c  / 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACr  ****/ 
/*  CALL  CUT$LINE(3MSG12)-; 

/s^s;::;;^  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/#***  MXTRAC^  :;;5;':::*  MXTRACE  *****  MXTRACE  ****  ^XTRACE  ****/ 

/*  INITIALIZE    P  ?  I    AND    ?  I  C  */ 

OUTPUT(?OFT$CE)  =  0CeH;/*  PPI  -  MICROPOLIS  +  MCCRTEX  */ 
OUT?UT^PORT$C0)  =  13H5   /*  PIC  -  ICW1  -  EDGE  TRIGGERED  */ 
OUTPUT  (?0?.T$C2)  =  40R;/*  PIC  -  ICW'2  -VECTOR  TABLE  ADDRESS  */ 
OUTPUT  (P0hT$C2)  =  0EH;/*  PIC  -  ICV/4  -MCS86  MODE.  AUTO  EOI  */ 
OUTPUT ( PORT$C 2)  =  0AFH J  /*PIC  -  MASK  ALLOWING  INT.  4  &  6  */ 

/*  ESTABLISH  UNIQUE  SEQUENTIAL  NUMBER  EOR  TEIS  CPU  */ 

/*  SET  GLCBAL$LOCK  */ 

DO  WHILE  LOCK$SET(0GLOBAL$LOCT<,  119);   END? 

PRDS.CPU$NUMPER  =  CPU$INITJ 

CPU$INIT  =  CPU$INIT  +  I? 

/*  RELEASE  GLOBAL  LOCK  */ 
GLOEAL$LCCK  =  0; 

/*   SET  UP  INITIAL  START  AND  END  FOR  PRCC  TABLE  */ 

PFDS  .VPSSTART  =  2-\ 

DC  ZZ  =  1  TO  ^RDS .cpu$number; 

prds  ,v?$start  =  prds . vp$st art  +  max$vps$cpuj 
end; 

/****  mcortex  ****  mcortex  *****  mcortex  ****  mcoetex  ****/ 
/****  mcortex  ****  mcortex  *****  mcortex  ****  mccrtex  ****/ 
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PRDS  .  VPS  END  =  PRDS.V?$START  +  1J 

PRDS  ,VPS$PE?.$CPU  =  2J 

/#*#*  NCO'-'TEX  ****  MCORTEX  *****  MCCRTEX 

/#***  MXTRACE  ****  MXTRACF  *****  MXTRACE 

/*  PRDS.VP$END  =  P-iES  .  7PSSTART  +  2; 

/*  PPDS.7?S$PEp.$CPU  =  3? 

/****  MXTRACE  ****  MXTRACF  *****  MXTRACE 

/***#  MXTRACE  ****  MXTRACE  *****  MXTRACE 


MCORTEX 

EXTRACT 


MX TRACE 

MX  TRACE 


/*  I 
/*  A 

V  P  M  f 
7?M( 
VPM( 
VPM( 
V'PM: 
VPK( 
i/pM( 

Vpyf 

VPM( 

7PM( 
7PM  ( 
Vpy  ( 
7PM( 
VPM( 


NIT  I 
ND  M 
PFDS 
PRDS 
PRDS 
??DS 
PP.DS 
PRDS 
?PDS 
PRDS 
PRDS 
PRDS 


PR 


DS 
PRDS 
PRDS 
PRDS 


ALIZF 
ONITO 

.T,TP$S 

.v?ss 

•  VPSS 

.v?$s 

.VP$S 

,VP$S 
.7P$S 

•  VP5S 

.VP$S 

.v?$s 

,VP$S 

.VP$S 
.VPSS 

,yp$s 


TH 
■>    o 

TAP 

TAR 
TAR 
TAP 
TAR 

TAR 

TAR- 
TAR 
PAR 
T  A  R 
TAR 
TAR 
TAP- 


ROC 

T). 
T). 
T). 
T). 
T). 
T). 
T). 
T  +  l 
T  +  l 
T+l 
T+l 
T+l 
T+l 
T  +  l 


P  M 
ESS 
7?S 
STA 
7?$ 
E7C 
E7C 
SP$ 
SSS 

).v 
).s 
).v 

).E 
).E 
).S 
).S 


AP  FOE  IDLE  AND  I  MIT  PROC  */ 
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ID 
TF 
PR  I 
STH 
$AW 

REG 

REG 
P$I 
TAT 
P$P 
7C$ 
VC$ 
P$R 
S$R 


OR 
R  E 
57 


J-/ 

E 

RI 
TF 
A  W 

EG 
EG 


255; 

l; 

ITY  =  0  5 

AD  =  255; 

ALUF  =  0; 

60E; 
init$stacksseg; 

=    255; 

=  1; 

ORITY  =  255; 
READ  -  255J 
$ VALUE  =  0; 

=  60e; 

=  idle$stack$seg; 


/»: 

/* 
/* 

/* 
/  v 
/* 
/* 
/* 
/«. 


PM 
?M 
PM 
PM 
PM 
PM 

DM 


MXTRA 
MXTRA 

(PRDS 
(PRDS 
(PRDS 
(  PRDS 
(PRDS 
(PRDS 
(  PRDS 
MXTRA 
MXTf  A 


CE  * 

.'vp$ 

.VPS 
.7  PS 
.7?$ 


MXTRA CE  *****  MXTRACE 
MXTEACS  *****  MXTRACE 


S  T  A  R 
STAR 
STAP 
STAR 
STAR 
STAR 
,VP$STAR 

CF 


*  >;-.:;: 


T  +  2) 
T  +  2) 
T  +  2) 
T+2) 
T  +  2) 
T  +  2) 
T  +  2) 
MXTRACE 
MXTRACE 


0FEE; 


MXTRAC 

MXTRAC 


7PSID 
STATE  -  ?; 
7PSPRI0PITY  =  0; 
E7C$TTJREAD  =  255; 
EVC$A¥S VALUE  =  0J 
S?$REG  =  60HJ 

SSSREG  =  MONITOR$STAC£$SEG; 
*****  MXTRACE  ****  MXTRAC 

3,-  #p  *■)-  2\*-  ?tC 


.  «.»*  *U   *..        / 

1  **-  -v  *•-  / 

.  Oj  *'.  *•*     / 


MXTRACE 


MXTRACE 


i'<  ;'c  ;':   / 


VR$R?S    =    NRSRPS 


l; 


MCCRTEX  *****  MCORTEX  ****  MCCRTEX  ****/ 
****  MCORTEX  *****  MCORTEX  ****  MCORTEX  ****/ 


/****  MCORTEX 

/****  MCORTEX 

NR$ VPS ( PRDS. CPU$ NUMBER)  -  2 J 

/****  MCORTEX  ****  MCORTEX  *****  MCORTEX  ****  MCORTEX 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRAC. 

/*  NR$V?S(PRDS.CPU$NUMBER)  =  35 

/****  MXTPACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE 

/****  ^xTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE 


•^1     ^'^  *'-  **+    v> 


hd'.v$int$flag(   prds  . c?u$numbee 
enable; 


)  =  0 


:;;  :>;;  / 
/ 


->-  *'*  »■*  -*  / 

•V  1*  *i-  'i"  / 

»i*  »U  »'-  O*  / 

*r  1*  '1*  *i*  / 
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PRDS.LAST$RUN    =    255  5    /*    INDICATE    START    ENTRY    TO    SCHEDULER    */ 
CALL    YPSCEEDULSR?  /*    MO    RETURN    */ 


/  -j,  «.'*  *.»*  »•*  ***  %<* 


«  »'*.  »*#  .'-  »*^  »*.»  *A«  »»*  «' -  »/-  »•»  »•*  *'*  •'<•  *>*  V  »'«■  ***  *■'*  V*  *•*  »'*  «■**  *■**  »' »  *'*  ***  •*•  ^*  V*  *•*  J*  »**  V*  *'*  *"  J*  »**  »'* 

-  rt+    ^ ft    *|«   *g*   *,»   *,»   *,■•   *,»  *^»  »,»   ^~   *p   ^|*   *i»  ^,»    r|*  *^»    *,«•  #f«.   *!»  *,*  »f    *p   *_.  *)f»  »|i  *|«>    #,*   rf(»   *,»    #(«    -,-    >(s  #^\  *[*    ,b  .  »,•»   - , 

.'.   .J.        ',    .'       k' .    »•*    fcltf    O  •   «'*    *'*    »'*    »t»    *'*   »l*    »•»    tft    »*>    **»    *■  *    »'rf   »1*    sV    *'*    *>**    »■■* 


K-  *i*  * 


-.-  V  *v  *?  a*  *»*  *i*  *r  T  *■*  nf  / 

*'*  *•*  %*^  ^'^  ^'*  fc'^  »'j*  »**  %■*  **>  *•*    / 

'l*    *j*  'l^   *4*    *»  *  'l^   'l*    *»*    *|*    'a*    'l*      / 


end;     /*  li^olule  */ 


i*  n-  t  *»  ■  *t  **'  n-  n^  t  *r  i-  -i1*  *i-  n -  *r  'i  ■  V  T*  ^^  *f*  n^  v  nr  t  *r  i""X  *»-  t  V  *r"  v  n*  V  *»-  "V  ^*  *.-  v  nr*  *v»  *»"  *r  *t-  iv  V  nr  n*  *i-  *» 

/»'*  »'»  *'^   *,'     •'>»'■•. '^  **^  »*»  »U  •,•*  v'-   ■  I     %•<  »•*  •.'*  *'*  »'*  »'x  *>'*  * ' *  *^*  *■'■'      '*  *■'■'  »''  **r  v'*  "•''  O*  »V  »•-  ^'*  »i'  «'/   O  •  »**  »*^  «J»  »'*  O *  v'*  v*>  ^' •  *'»  »'»  «  »  *'.»  «'*  «.', 

*_■»  *,■*,■•   *      r%*  ','  't*  ^i*  *t*  'i*  '(*  'i"    *i     *V  *i*  *iv  ***  *i*  *t     '•*  *%     "I*  *i*   '»     'I*  '»N  'i     *'l"1'  '•     **i'      1     ■  t     *f"  "l-*  *t"*    "i"  *i*    '(*  'i"  "  i"   ^"  'I***  *('  *i"*  *(•      i  *  '(•  'i1*  '. 

/»•#  »'«  ^'»   »**  »•*  »*»  V»  »'*  »'•  »*»  ^**  ***  V*  »'*  »'»■  s'*  »''■  s'*  *'*  «i'*  »**  »'*»■*  *'*  *•*  ***  O*  **»»'**■*  **»  *■**  V*  V*  %*•  »**  V*  *'*  *•»  »**  »'^  k'-  "■'*  »'•  »'*  *'*  *' *  *'*   «■* 

*  »  *(*  »,*   J^  »4^  ?,*  *,*  *,»  *,-  >,»  *,»  »,"»   *,*  »,■»  *,»  *,*  *t»  /,»  »(»  *t»  *(*   *,»  >|*   *,*  »(^  >|V  »(*  *,»  *g»  ^(»  *»,-»  rt*.  Jt%  >,%  ^|»  >|<>  >j»  ^(-»  ^t»  #,*  «^  *|%  *t»  *-(^  *,«>  *(-»  i-: .  »j-«    ^t 


■  *r  / 


'i-  'i-  't*  -y  'r 


7 

■    / 

/ 
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/***  MCORTEX  *****  ^CORTEX 


MCORTEX 


vCORT 


:F1:L0CB6  KCRE.LNK  ADDRESSES ( SEGMENTS (& 
STACKOC730F)  ,& 
INITMOD_CCDE(04390E)  ,& 
GLOBALMCDULE_DATA (0E7942H)  )  )& 
SEGSIZE( STACK  (75H)  K 
RESERVE  (0K  TO  03AFFH) 
WAPNIN3  56:   SEGMENT  IN 

SEGMENT: 
WARNING  56: 

SEGMENT: 


(NO  NAME) 

SEGMENT  IN 
IMITMOD  CODE 


RESERVED 

RESERVED 


SPACE 
SPACE 


SYMBOL  TABLE  OE  vODULE  L1MODULE 
READ  FROM  FILE  KORE  .LNK 
WRITTEN  TO  FILE  :F2:K0RE 


BASE 


OFFSET  TYPE  SYMBOL 


EASE    OFFSET  TYPE  SYMBOL 


0C6AH 

0?00H 

PUB 

PRDS 

0BB0K 

0380E 

PUB 

IDLEPROC 

0BB0E 

0302E 

PUB 

LOCATSSEO 

0BB0H 

02S4E 

PUB 

LCCATEEVC 

0BB0E 

020BH 

PUB 

CETWOREC 

0BB0H 

31E3E 

PUB 

GETS? 

e330H 

01AEH 

PUB 

SAVECONTEXT 

033  0H 

0185H 

PUB 

RDYTHISV? 

0RB0H 

013  SE 

PUB 

RETVP 

0BEBE 

?68BF 

PUB 

CREATSPROC 

0BFBH 

062AC 

PUB 

TICKFT 

0BEBH 

05G7H 

PUB 

CREATESEO 

0BEBE 

03CEE 

PUB 

PREEMPT 

0BE3E 

0223F 

PUB 

ADVANCE 

0BEBE 

01V5E 

PUB 

AWAIT 

0BE3K 

0127H 

PUB 

BEAD 

8BEBE 

0  0  ?  F  H 

PUB 

CREA TEEVC 

0BEBH 

002EH 

PUB 

GATEKEEPER 

0C63K 

0000H 

PUB 

V?SCHEDULS'J. 

0C6BE 

0033H 

PUB 

INTVEC 

<?439F 

0002E 

PUB 

IN  IT  I ALPROC 

E794H 

0192H 

PUB 

VPM 

E794K 

0593H 

PUB 

SEOTABL7 

E794E 

0592H 

PUB 

SEQUENCERS 

E794B 

059  IK 

PUR 

CPUINIT 

E794E 

0002E 

PUB 

EVCT3L 

F794H 

059  011 

CUB 

EVENTS 

E794H 

PUB 

HDWINTFLAG 

E794H 

357CP 

PUB 

NRVPS 

E794E 

057BE 

PUB 

NRRPS 

E794H 

0  5?  A  H 

PUB 

GLOBALLCCK 
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MEMOFY  K:k?    OF  MODULE  L1M0PULE 
^EAI  FROM  FILE  KORE.LNK 
WRITTEN  TC  FILF  :T0:KORE 


MODULE  STftRT  ADDRESS 
SEGMENT  MAP 


PARAGRAPH 


0FE0H   OFFSET  =  0030H 


START 


STOP 


LENGTH    ALIGN    NflME 


CL^SS 


00110H 
04390H 
0BB00H 
0BEB4H 
0C6A0H 

0C6A0H 
eC6*8fl 

0C6.fi  BE 
0C6B0F 
0C6E0? 
0C790H 
0C800H 
0C880H 
F7942H 

E8000E 


00113H 
?43»9E 
2BEP3E 
0C69FF 
PC6A0H 

0C6A7E 
0C6A8H 
0C€*8H 

0C6B0E 

0C746H 
0C7F4F 
0C879H 

0C8F9H 
F7FFEE 

E3000B 


0004H 

A 

(ABSOLUTE) 

001AF 

W 

INITMOD  CCDE 

WW*/--' 

03B4E 

\\ 

L1M0DULE  CODE 

CODE 

07ECE 

'Ml 

L2M0DULE  CODE 

CODS 

0000H 

W 

GLOBALMODULE_C 

CODE 

■ODE 

0008H 

A 

LI  MODULE  DATA 

DATA 

0000H 

w 

L2M0DULE  DAT'. 

D fl  T  4 

0001H 

V 

INITMOD  DATA 

DATA 

0000H 

G 

??SEG 

0097H 

SCHEDULER 

0075E 

W 

STACK 

STACK 

007AF 

A 

f  ABSOLUTE-) 

007AH 

A 

(ABSOLUTE) 

06  SDH 

W 

GLOBALMODULE_D 

DAT  * 

-ATA 

0000  H 

W 

MEMORY 

MEMORY 
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MXTR»CE 


M  X  T  F  A  C I 


MXTPACI 


MXTB ACE 


ISIS 
•PI: 
STAC 
IN  IT 

GLOB 
SEGS 

RESE 

V  a  p  N 

SF 

WARN 
SE 


-II 
LCC 
K(0 

MOP 

ALM 

IZP 
RVE 
INS 

GME 
ING 
GME 


96 

C4? 
_CC 
ODU 
(ST 
(0H 

56 
NT: 

56 
NT: 


S-c6  LOCATER,  VI. 1  INVOKE!  BY: 
KOPE.LNK  ADDRFSSES (SEGMENTS (& 
0H)  ,& 

B2(04390H) ,& 
LE_DATA (0E7942H) ) )& 
ftCK(75E) )& 

TO  0ABFEH) 
:   SEGMENT  IN  RESERVED  SPACE 

(NO  NAME) 
:   SEGMENT  IN  RESERVED  SPACE 

I  NIT MOD  CODE 


SYMBOL  TABLE  OE  MODULE  L1MODULE 
FEAD  EPOM  FILE  EOFE.LNX 
*'RITT?M  TO  FILE  :F*:KORE 


BASECEFSET  TYPE  SYMBOL 


BASE    OFFSET  TYPE  SYMBOL 


0C0DE 

000AE 

PUB 

PHDS 

0AC0E 

04E6E 

PUB 

MONITOPPEOC 

0AC?E 

049CH 

PUB 

IDLEPROC 

0AC0P 

03EDH 

PUB 

LOCATSSEO 

OAC0F 

035EE 

13  UB 

LOCATEEVC 

0AC0H 

0293H 

PUB 

GFTWORE 

0AC0H 

026BR 

PUP 

GETS? 

0  ft  C  0R 

0236H 

PUP 

SAVECONTZXT 

0AC0B 

011  EH 

PUB 

RDTTHISVP 

0AC0K 

0165B 

PUB 

RETV? 

0B4AH 

?C'?6F 

PUB 

OUTREX 

0E4AH 

es0iE 

PUB 

INEEX 

0B4AH 

0AB1H 

PUB 

SENDCFA^ 

0B4AE 

0A8FH 

PUB 

RECVCRAR 

0B4AE 

0A62H 

PUB 

OUTDNUM 

OB4AH 

0A2SR 

PUB 

INDNUM 

0B4.AF 

0A11E 

PUB 

OUTNUM 

0P4AH 

09C2H 

PUB 

OUTLINE 

0P4AH 

09  A  AH 

DUP 

OUTCEAR 

0B4AH 

098EE 

PUB 

INNUM 

0B4AH 

0974H 

PUB 

INCHAR 

0B4AH 

0804H 

PJB 

CiFATSPROC 

0B4AH 

0798H 

PUB 

TICKET 

0B4AE 

0712H 

PUB 

CR FATES  SO 

PE4AE 

04F9E 

PUB 

PREEMPT 

OB4AH 

033CE 

PUB 

ADVANCE 

0P4AH 

026  IE 

PUB 

AWAIT 

0B4AH 

020DH 

PUB 

READ 

0B4AB 

0182F 

PUB 

CREATEEVC 

0P4AE 

0062E 

PUB 

GATEKEEPER 

0C31H 

000  0H 

PUB 

VPSCHEDULEP 

0C31H 

0033R 

PUB 

INTVEC 

0439E 

0302H 

PUP 

INITI ALPROC 

P794H 

0192H 

PUE 

VPM 

E794P 

05P3E 

PUB 

SEOTABLE 

E794H 

0592E 

PUB 

SEQUENCERS 

E794E 

0591P 

PUB 

CPU  IN  I? 

E794H 

0002E 

PUB 

EVCTBL 

F794H 

0590R 

PUP 

EVENTS 

E794H 

0586H 

PUB 

EDw INTEL AG 

F794F 

057CE 

PUB 

NRVPS 

E794F 

057BH 

PUB 

NRRPS 

E794H 

05?  AH 

PUB 

GLOBALLOCK 
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MEMORY  MAP  OF  MODULE  L1MODULE 
READ  FROV  FILE  KORS.LNK 
WRITTEN  TO  FILE  :F0:KORE 

MODULE    ST'ET    ADDRESS      PARAGRAPH    =    2AC0H      OFFSET    =    0030H 
SEGMENT    MAP 

START      STOP      LENGTH  ALIGN  NAME  CLASS 


e-eiiPH 

P0113E 

0e(?4H 

A 

(ABSOLUTE) 

04390F 

843B4H 

0025H 

W 

INITMOD  CODE 

CODE 

0AC00H 

0B4A6H 

08A7H 

W 

L1MODULE  CODE 

CODE 

034 ASH 

0CPD9E 

0C32H 

w 

L2M0DULE  CODE 

CODE 

0C0DAP 

0C0DAP. 

0000  H 

■CDF 

GLOBALMODULE_C 

CODE 

0C0DAH 

0C22CH 

0133H 

W 

LI  MODULE  DATA 

DATA 

0C20EH 

0C2F1H 

00E4H 

w 

L2M0DULE  DATA 

DATA 

0C2F2H 

0C30FH 

001EH 

A 

INITMOD  DATA 

DATA 

0C310H 

0C310H 

c*000H 

n 

??SEG 

0C310H 

0C3APF 

0097H 

r 

SCHEDULER 

0C4B0P 

2C4F4F 

0075H 

w 

STACK 

STACK 

0C500H 

7C579H 

007AH 

A 

n 

(.ABSOLUTE) 

0C590R 

0C5P9H 

007AH 

A 

(ABSOLUTE) 

?cezzu 

3C679'! 

007AH 

A 

'ABSOLUTE) 

E7942H 

E7FFEH 

06BDH 

■  A  T  A 

GLOBALMODULE_D 

D  .A  T  A 

E8?0fH 

ES???E 

0000H 

MEMORY 

MEMORY 
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SPPENDIX  I 
SCHEDULER  &  INTERRUPT  HANDLER  SOURCE  CODE 

The  ASK96  code  in  file:  SCEED.ASM  is  part  of  LEVEL  I. 
No  special  attributes  ar°  required  for  the  assembler.  This 
module  is  linked  into  file:  ((CRT. INK,  and  its  memory  map  is 
included  in  the  map  for  KORE.  KORE  is  the  development 
system  version  of  the  file  KORE. OPS  leaded  by  MCOBTEX.CtfD 
under  the  CP/M-86  operating  system. 
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o*  /"»  f\    **i  n  j*  *'»  >*»  %•»  »■<  *••  *•#  ■*•»  *^  *•*  v  »•*  ^*  v<  ***  ***  »'«•  »•*  »V  •>'»  +i*  »'■ 
*,-  f/  v     ,     /  *t-  *v  Jp  n-  *»**  t  i*  *r  *r  *i*  3»*  n-  *.*  ^r*  *i*  *i*  *r*i'-  'r  *.-  *r  *r 


SCHEDULES 


asv.  FILE 


■  %•*  »*»  »'*  *'*  *■' -  "-1*  »**  V  V'  *'*  *>''  V**  ■*^*  V*  •'*  *"  *■'"  *'*  **'*  *''  V'  »■'  *'>  »'*  V*  »'-  -''  »*»  *■** 
*  *i*  *P  *i*  *>*■  *(*  *p  *C  *f*  *f*  *i*  *p  *p  *i*    'i*  *f*  *p  'i*  *(*  1*  *p  'p   *»-  'i'"  "i*  *!*  'i*  *i*   0f  *i» 

RO'tfE    6-22-84  * 


*  THE  FOLLOWING  ARE  THE  EXTERNAL  FLMP6  PROCEDURES  CALLED 

*  BY  THIS  MODULE. 


FXTF.N  5AVECONTFXT:FAE 
FXTRN  GETSPrFAR 
EXTRN  GETWCHKrFAR 
EXTRN  F.DYTHISVP:FAR 
EXTRN  PRDS  :FYTE 
EXTRN  KDWINTFLAGrBYTE 
EXTRN  GLOB*LLOCK:BYTE 

SCHEDULER  SEGMENT 

PUBLIC  VPSCHEDULER 
PUBLIC  INTVFC 

VPSCHEDULER  PRCC  EAR 

ASSUME  CS:  SCHEDULER 

ASSUME  DS: NOTHING 

*SSUME  SS:  NOTHING 

ASSUME  ES:NOTuING 

5  ENTRY  POINT  FOR  A  CALL  TO  SCHEDULER 

CLI 

PUSH  DS 
MOV  CX,0H 

:SWAP  VIRTUAL  PROCESSORS.   THIS  IS  DONE  BY  SAVING  THE 

;  STACK  BASE  POINTER  AND  THE  RETURN  TYPE  FLAG  ONI  THE 

; STACK,  AND  BY  SAVING  THE  STACK  SEGMENT  AND  STACK 
; POINTER  IN  TUE  VIRTUAL  PROCESSOR  MAP. 


INTJOIN:  PUSH  BP 
PUSH  CX 


J  SAVE   CURRENT   STACK  BASE 
JSAVE  'CURRENT'  IRET  IN!)  FLAG 


MOV  A.X.SP 

PUSH  AX 

PUSH  SS 

CALL  SAVECCNTFXT 


JSET  UP  SAVE*CONTEXT  PARAMETERS 
JSET  UP  SAVESCONTEXT  PARAMETERS 


CALL  GFTWO^K 
PUSH  AX 
CALL  GETSP 
POP  SS 
MOV  SP.AX 


;get  new  stack  segment 
{temporary  save  of  stack  segmen' 

JGET  NE'a  STACK  POINTER 

5  INSTALL  NEW  STACK  SEGMENT 

J  INST  ALL  NEW  ST*CK  POINTER 


JSWAP  VIRTUAL  PROCESSOR  CONTEXT  COMPLETE  AT  THIS  POINT 
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;now  operating  im  newly  selected  process  stack 


POP  ex 

POP  B? 


;gft  iret_ind  flag 

;  install  new  stack  base 


;   CHECK  FOR  RETURN  TYPE,  NORMAL  OR  INTERRUPT 

CMP  CX,?7H 

JZ   INTRET 

NORM_RET:  POP  PS 

J  UNLOCK  GLOBAL$LOCK 
MOV   AX.SEG  GLOBALLOCK 
MOV   ES ,  AX 
MOV   ES: GLOB ALLOCS  ,£ 

STI 
RET 

7PSCEEDULEE  ENDP 

M    «i*  **  -  _i,  »»*  *)*  »'^  ***  %'*■  v*  V*  J*  >'•  v*-  »'■*  V*  ***  *•*  V*  »'*  *i'+  ***  ***  *^  «•**  *)*   **'  >'*  *'*  V*  *J*  *'*  *'*  ***  V*  v'*  ^^  ^**  *'*  ***  ***  ***  ***  ^V  •'■*  *^*  *'*  ***  ***  ***  V*  «■**  >'■*  *'*  **■* 

•  nr»  i*  nr  nr» i-  *v  t*  *r  3l-  *r  t-  V  "i»  *»*  *r  *r  »r  n*  *i-  ?**  *p  *«*  *r  t*  *v  *i~  *r  T*  *i*  *r  •**  t-  *"r  *r  *v  t  *t*  «v  *r  •*-  *r  'r  nc  «v  '»*  *r  »r  T*  T*  n*  «v  •*>*  *r  *i* 


T*  fp  *»-  *r  *i* 


-  »i..  .<»  »■»  .,**  »'*  »< ,  ,i,  »v»  «'*  j^  .'  >  *'-  «.i  -  *'*  »■>  •»■*  -J*  *'*  %•*  *'*  «•*•  O-  »■*  o*  *.*'•  *'*  *'*  *'*  V*  "■'-■  ^''  ^'■'  ••'>  "■'*  s'*  ***  V*  *■'*  *'■*  *'*  ^'>  ■*'■*  ***  *'*  *'*  *'■* 

->  -  -,^  >,»  <■,-.  J|»  *.*  *,-•  •,-•  »,"•  *,»  J,^  *|S  *-,-»  *(»  *■[>  iy»  *,»  *|*»  *|«  ^i»  •  ,-  *(»  ')»  ■/■,»  Vk»  *,-  #p  *,n  J,»  #,-.  •  ,*  *,■•  *,■«  *|»  *(■*  ^|-»  ^,»  #,■»  *ti-  ^,»  >^»  *(-»  ^j»  *t»  *■,«»» 

I*   INTERRUPT  HANDLER 
;# 

INTERRUPT  HANDLE-   PRCC  NEAR 


ASSUME  CS: SCHEDULER 
ASSUME  DS: NOTHING 
ASSUME  SS : NOTHING 
ASSUME  ES : NOTHING 


INTVEC:  CLI 
PUSH  SS 
PUSH  BX 
PUSH  AX 
PUSH  CX 

CALL  HARDWARE_INT_ELAG 
MOV   AL,0 

AL,ES:Hr',VlNTFLAG[BX] 


SAVE  NEEDED  REGs  TO  TEST  INTERRUPT  FLAG 


XCHG 

CMP 

JZ 

POP 

POP 

POP 

POP 

STI 

I  RET 


AL.77H 

?USH_REST_R?GS 
CX 

AX 
BX 
ES 


IS  INT  FLAG  ON  ? 
IF  'YES'  SAVE  REST  REGs 
IF  'NOT'  RESUME  PREVIOUS 
EXECUTION  POINT 
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PUSH   REST_REGS:    PUSH    DX 

PUSH    DS 

PUSH    SI 

PUSH    DI 

MCV    AX,SEG    GLOBALLOCK 

^OV      ES,    AX 
CK:    MOV    «L,119  J 

LOCK    XCHC-    ES:GLOEALLOCK,AL 

TEST    AL,AL 

JNZ    CE 


;    FLAG    WAS    ON    SO    NEED 
J    RE-SECHEDULE 


LOCK    GLOBAL    LOCK 


ALL    RPYTHISV? 


MOV    CX.77H 
JMP      INTJOIN 


jump  to  schedule: 


IN TRET: 

POP    DI 

PC? 

si                                    ; 

POP 

ds                                   ; 

POP 

dx                                   ; 

PC? 

<u  A                                  1 

5    UNLOCK    GLOBAL$LCCK 

MQV 

AX,SEG    GLOBALLOCK 

MOV 

BS,    ^X 

MOV 

ES :GLOBALLOCK,e 

POP 

AX 

POP 

BX 

POP 

ES 

STI 

IRE1 

i 

RETURN    FOR 
PROCESS    WHICH 
HAL    PREVIOUSLY 
BEEM    INTERRUPTED 


INTERRUPT    HANDLER    END? 


a  -X.    *'-  —  ■  0»  *,:*  >J*  *>l^  »l>  O*  *•*  »'.  «A*  ..',«  *»*  *.!.  »l>  •,'*  U*  v.'-  *'*  *'*  *#*  •*■*  *J>  fc**  J-  *'*■  »'*  *'^  *,*••  *>'*  »'*  •.'*  ••*.*  */*  •.'*  »**  V  ***  «**  ***  *'*  *•*  *'*  •***■  *■'*  *■'*  •**   *** 

v  nr  *»*  *.•*  *i-  -v  *»*  *r  t*  n*  *v  *r  -v  ns  *r  *v  *r  nr*  n*  ***  3r  *r  *v*  «t»  *r  n-  *r  *r  -v  V  *r  *i"*  nr  *r  *v  *r  i-  V  *r  *r  *i-  v  *r»  t  *r  v  *■*  *v  *r 


*■*  *v  *r  n*  *i-  -i»  «v  *v  *r  ' 


•  3 


»i-  ,£»  o,0 


■J  »  N**  >'.*  O'  '***  *■*■*  *'*  **^  »'*  *■**  *>■**  *'*  ****  "***  **>  »'*  **'* 
,|»  *p    >^  ^|*  ^^  ,,**  ^.»  ^|^  ^|  ■  *-  ^  *j*  +i*    ^|*  *»*  rf.^  *»^  '1^ 


*V   't**V   '.'  1" 


HARDWARE    INTERRUPT    ELA« 


*f*  +£+  ^*  v*  *}*  mf*   **-*  *■**  *'^  O*  %^  *V^  %'*  vf*  %»f*  %*-•  */*  *S,  *1^  *V  •/* 

*t*  ,j^  ^*  •»  ■  ^j^  ^.-*  *  »  >|»  »j^  ^|»  *.^  ^|^  ^j*  *.^  ^|^  ^|*  0S±     #|^  ^j*  *|*  *i** 


HAP.DVARE_INT_FLAG      PROC      NEAR 

ASSUME   CS  .SCHEDULER 

ASSUME    DS: NOTHING 
ASSUME    SS  -.NOTHING 
ASSUME    ES: NOTHING 
HDW    ELAG:    MOV      AX,SEG    PRDS 


MOV 
MOV 


AX 
BX,0H 
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rOV  CL,ES:PAES[3X] 

MOV  CHt0 

rev  bx,cx 

MOV  AX.SEG  HDWIMTFL.AG 

MOV  IS,  AX 

P.ET 


;get  cpu  n 

;  RETURN  IN  BX 


SET  U?  HDW$IMT$FLfiG 
SEGMENT 
RETURN  IN  ES  KEG 


HARDWARE  INT  FLAG   EN  DP 


SCHEDULER  ENDS 


EN  D 
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APPINEIX  J 
'I&3AL  D^TA  BASF  AND  INITIAL  PPOCISS  CODY 

Two  files  are  presented  here:   GLOBAL. SRC  and  INITK.SP.C. 

They   are  both  separately  compiled  with  the  LARGE  attribute. 

They  are   linked   into   the   file:    KORE.LNK.  They   are 

represented  in  the  memory  map  for  K0R2  located  at  the  end  of 

Appendix   H.     INITK   will   te   overwritten   by  the   users 
initialization  process. 


133 


/■*',   -1-  »■»  »•*  I.**  *•*■  *,'»  »**  o*  o* 
*^-»  »,*  *,    *,*  *■,*  »,*  *»)»  »|S  #,«  *,» 

/-■.  »•*  ju  »<*  v*  V*  *'*  M*  v*  *•*  Vi»  *'*  %**  ***  »**  *'*  »1-  *'*  *'*  *'*  *"*  *** •'*  »**  *''  *'*  ***  *-*f  ***  ***  *'*  sfi  *'*  ***  *■"*  i'f  *'*  ***  V*  ***■  "*'* *"-  i* 
*,*  *l»  '(■*  *t*   *,»  *)>  *i*  »|*  'p  »,■•  B(*  *|"«  *("»  ^(">  *,"■  *J*  'i1*  *1*  "|"  *,»  *(**  *■('•  *(*  *|*  *|*  *('*  *(•  »|*  1*  *p  *l*  ^*  'l"  ^   *ly   i    t*  'I    »  '   l-"   J*   I    I 

/*'*  "t  /*»    s^  /~\  »'#  »•*  -'-  »t»>  sV  •'  -  •*-  *■'*  *.'»  »'*  •.*»  »."*  »•'•  *'*  »**  »'■*  »**  »*>  ***  ■»*'»  *'*  »'*  »'*  »'*  »'*  *'•*  **'  »*•'  *'■*  **'  **>  ***  ***  *•'■"   *'-'  **£  **'•'  1** 
**"  L'  L/^  (/  Q  *«'  *t*  ■ .  ■  *i'  *£  »i*  '  '  *r  'i*  *»"  *•*  *•**  *•*  *i~  *f  *•*  "V"  '•*  '»*  *v  •»*  *i*  "I*'-'  ***  *C  *•  "V  '*"  *i"*  *  **•■"  •  "<  *i  "*>*  <■* 

/*      FILE:  GLOBAL. SRC 

VERSION:  HOWE    6-22-£4 

PROCEEUSES 

DEFINED:         NONE 


j»  aj*  *i»  »'-  *■*  «'-  »'rf  »'-.  »■.«  ■»>» 

l*  '*"."■  1*  *TT*  't"1  T*  "*t*  'j*  *l*  I* 


.  *)■»  *,*  *,»■  ^|* 


*/ 

*/ 

*/ 


REMARKS :THIS    MODULI    CONTAINS    DECLARATIONS    FOR    ALL   THE 
GLOBAL    LATA    THAT    RESILES     IM    SHARED    COMMON 
MEMORY.       IT'S    LOCATED    THERE    BY    THE    LOCATE    COM- 
MAND   AND    BY    SPECIFYING   THAT    THE 
G-LOBAL$MCDULE_DATA    SEGMENT    BE    LOCATED    AT    SOME 
ABSOLUTE    ADDRESS . 


/' 


*',-      -T.         ^>     ^1.*      ^'^       V'^      *     -      *''       <"  *        ***     ^''       «L'     ^''      ^^     -<■  '^      ***  J      •**-*     ^'"      ^'*      *''       -■  ^    ^'"       %''      ^'      *''     *'*      ^krf      V'^     ^T'      STV       ■*-*     ^'-      0<#    >"'       O*      O*      *'^      O-^      »'*       ^J*      *'*      tjv       «A^     *'^      *1^      V>4     ^      -*       N.'*» 

•r  *r*  ^*  i*  *.■*  t  "r  'i*  *r  *»*  *»*  *»v  *>-  *t*  *»'  *r  "p  T"v  o*  -r**»*  n*  *r*  T**r  t*  *»*  *i*  n*  *t*  ^i*  *»*n*  i-  *>*  n* n* *p  *r **■  ^  *r  r%*  *i*  'f  *i*  'i* 


*/ 

v*  *  *  *ju  ■o»  *v  v*  ***  »'*  *•*    / 
T"*«*  "■  *r  t  n*  i-  *r  *r  / 


-LOBALSMODULE:      DO? 


/+'r  +\r  %' '    ■.''  •-  '*  -.' '  >'-<  ••''   ■-'-  »'■■  •.'-'  •«''  v1*  v'-  » O  s1*  ■»''  -.'•'   *>'<•  *'*  »*>  V*  **■*  **  -  *»' '  V'  »'  -  -'  -  •.'*'*  «.'  -  -. "'  >"  »'*  V'  V'  v' '  >''  ■*  '■•  -'■'  ^''  ^''  "^'  *'"  *■'"  ■*''  *'*  ■■' '  ••*  *'*  ^*"  »'■'  ■"' '  *■''  *A*  »'*  ~>-  »'•» 

#^  *^fc  *i>.  *j*  »,4  *,»  *,»  *(*  *,--  *,^  *|*  »4»  *(^  *,%  >j*.  ^^  ^p  +f*   *,»  *(■%  ^p  ^,-»  ',»  *|»  »(*  ^*  #^»  *,»  *p  *|»  *^»  *p  ^p  *,■•  ^(>  rfj*  ^f»  ^(^  ^,>  ',*  >j-"  *!■»  *v»  ^»  ^p  >p  *,■»  »,»  *(*  >|  -  *i*  *p  *!■•  i"  »y*  *i»  >,*  •■f*  / 

.  /  O  ■  *J*  »i,  ^*.  ^t*  k'^  »•*  ^-»  »/*  fc**  «.''•  »*»  »•-*  O'  *^*  »•'  *••  %'»  V-  >J»  O*  »'*■  v'*  ■»**  »'*  v'*  »'*  »•»  »'*  ***  *'"  **"  ***  ***  **'  »*'  ***  V*  *'•*  *'*  *'"  V*  V*  "•'-•  »''  *'*  »'*  »'»  *'«*  »'*  ***  *'•'  »**  *'*  *'*  •«'»  »'*  »'*  / 

/  ^,»  *|"-  *(V  B  *  *|i  »,>  J,*  »>,-•  *  -  B,s  <fB»  B«s  ^,  *,»  *p  *,»  *,■-  *j»  *|-  ^|*  *j>  *■»  *|*  *_»  #,»  *,  *■,•  *(*  *,*  *,••  »j"  *t-  »,■•  *(*  *(  *,'  *(»  >(»  »,*  #p  *|"»  *p  't*  *,■*  *i*  *,»  »|*  »,»  *,»  'p  *(»  *^»  »|»  t*  r\+   *[»  »|"  *,■•  / 


/* 

/* 
/* 


THE    FOLLOWING    THREE    LITER &L    DECLARATIONS    ^.J    *LSC  */ 

GIVEN    IN    THE    LEVEL1    &    LEVELH    MCDULFS    OF    THE    OPERATING  */ 

SYSTEM.       A    CHANGE    HERE    WOULD    HAVE    TO    BE    REFLECTED    IN  */ 

THOSE    MODULES    ALSO.  */ 


DECLARE 

M?X$CPU                                         LITERALLY  '10', 

MAX$V?S$CPU                              LITERALLY  '10'. 

MAX^CPU$$$SMAX$VPS$CPU    LITERALLY  '100'; 

DECLARE 

GL0BAL$L0CK   BYTE   PUBLIC    INITIAL(0); 

/*      THIS    SHOULD   REFLECT    THE    MAX$CPU    ABOVE    */ 
DECLARE 

NP.iP.PS  BYTE    PUBLIC    INITIAL(0), 

NR$VPS(MAX$CPU)    BYTE   PUBLIC 

I  N I TI AL  .  0  ,  ?  , 0  , 0  ,0  , 0  , 0  , 0  ,  /) ,  d  )  ; 

DECLAFE    HDW$INT$FLAG(MAX^CPU)    BYTE    PUBLIC* 


D^CLARr    EVENTS      PYTE      PUBLIC    INITIAL(l); 

DECLARE    EVC$T3L(ie0)    STRUCTURE 
(.EVC^NAME  BYTE, 

VALUE  WORD, 

THREAD  •     BYTE)       PUBLIC 

INITIAL(0FEH, 0,255) ; 
/*    EVC    "FE"    IS    RESERVED    FOR    THE    OP    SYS      */ 
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DECLARE    CPU$INIT    BYTE    PUBLIC    INITI AL ( 0) ! 

DECLARE    SEQUENCERS  FYTE      PUBLIC    INITIAL  (0)  J 

DECLARE    SEQSTABLE(ie0)    STHUCTUP.E 

(SEQ$MAVE  BYTE, 

SEQ^VALUE  tfORD)    PUBLIC; 

DECLARE    VPM(    MAZ$CPU$$$$MAX$VPS$CPU    )    STRUCTURE 

(V?$ID  BYTE, 

V?$STATE  BYTE, 

VP$PRIORITY  BYTE, 

EVC$TEREAD  BYTE, 

EV C $  AW  $ VALUE  WORD, 

SP5REG  if  CRD, 

SS$PEG  WORD)     public; 


END;    /*    MODULE    */ 

/*•*  V*  »'■*  »'  -  *'■■  •■''  %**  *'*  *' '  V'  *'*  V'  »'  •  *■'  ■  -''  »"'  • '  -  »"-  *"  V  *  V'  •~ir  ■***   «-'■»  ■-''  ■**'  » '*   »**  »' '  »■'  •  •«'1*  - '  -  ■»•■'  V*  V'  *J*   «•'  -  »V  V'  *>'^  V4  V'  *•'  *   o  *  »> »   v^  »i»  »<»  *A*  v*  »'*  • 
i"  *i*  *i*  *i*  *r*  *»*  *r*  *p  O'    f*  *i*  *•*  *t*  *>*  *i*  *»*  'p  *^  *i*  ^*  ^*  *i^*i*  "i*  *i*  ***  *i*  i*  *,*  *i*  ***  *f*  *(*  *t*  *i*  *p  *(*  in  *»*  *i   *i*  *i%  *i*  *•*  *t*  *<*  *,*  *(*  *r*  *#*  *i*  * 


*/ 
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/%**  %**  %'-  »'■»  »'/  y*  »'»  *'*  «^*  s*-  »'*  *'-»  »**  v«*  ■*'■*  ** *  ••**  "•**■  *■' »  ■»*•'  *''•  **-»  »>  V  v'*  -'■'  *'■*  *•'*  ***  — ''  »J*  *'■*  *"-  **»  ■■' *  ■"'*  *-J"  ■',1*  *-' *  "-1-  »'*  *''  »'*  ■>'*  •>'*  *'■*  ***  *•'*  »'•  -'■'  •>'*  - -»  >V  »'*  ~ '*  -'»  -'-  »J<-  *'•  / 
*i*  n*  'i*  *i**i*  n"  nr  *v*  V  *i"  ***  *.-  *i*  *»*  *i*  n^nr  *r  *ix  "i*  *p  *i*n*  *»*  *r*  *r  t*  *>v  «v  "1**1*1**1"  *v**r  *i*  *r  *i*  1-  0**1**1*1*  *i*  1*  1*  -1*  1*  ***  1-  *t*  1*  1-  1*  *r*  1*  1*  *r*  / 

/*    INITE       MODULE                        HOWE  6-22-84  */ 
/# */ 

/*  THE  COPE  SEGMENT  OF  THIS  MODULE  IS  WHAT  RESERVES  SPACE  */ 

/*  BY  THE  OS  FOr  TEE  USE?  INITIAL  PROCESS.   THIS  IS  */ 

/*  EXECUTABLE  IN  IT'S  OWN  RIGHT.   THUS  IF  THE  USER  DOES  */ 

/*  NOT  PROVIDE  AN  INITIAL  PROCESS  THIS  ONE  WILL  EXECUTE,  */ 

/*  BLOCK  ITSELF,  AND  IDLE  TEE  CPU.   THE  ADDRESS  OF  THE  */ 

/*  INITIAL  CODE  SEGMENT  IS  PROVIDED  TO  LF7EL1  AND  IT  IS  */ 

/*  REFLECTED  IN  THE  PLM  LOCATE  COMMAND.   THE  ADDRESSES  */ 

/*  PROVIDED  MUST  AGREE.   THIS  PROCESS  HAS  THE  HIGHEST  */ 

/*  PRIORITY  AND  WILL  ALWAYS  BE  SCHEDULED  FIRST  BY  THE  */ 

/*  SCHEDULER.  */ 

/* */ 

/*  CALLS  MADF  TO:    AWAIT  */ 

/»'»  *'■»  »**  *'»  *'»  »'«■  J*  **«»  <.!.  «*»  *•*  *ff   «.'*  »**  »>»  »'*  »'«  -l-  **.•  »**  v  *^*  V»»  ***  *t*  ->*  V*  V*  V*  *Jt*  »'*  »'*  *•*  *'*  V*  Vr*  V*  *'*  V*  V*  **i»  ***  *'*  *'*  *^>  «*-  »'*  »'<  O*  V'  **«'  sV  %•*  *V  V*  »'*•  Vi«  *••   / 
1*  *i*  "1*  "i*  .*  "i"*  *i*  ";*  *i*  't*  *;*  *.*  1*  "1"  •"(*  *  *  *i*  ",*  *,*  *p  1*  1*  *i*  ***  1*  1*  *|*  1*  *i*  *»*  *j*  *|*  'i  "1*  *»■•  *(*  *t*  *t*  *i*  *P  *Y*  **■*  *t*  *l*  *>*  *i*  "1*  *i*  1*  *»*  *»*  *|*  *»%  *i*  *t*  *i*  *i*  *l"  / 

INIT$MOD:  DO; 


/***  MXTRJCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXT?ftCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  DECLARE 

/*  MSG13(*)  BYTE  INITIAL? 10 , 'ENTERING  INITIAL  PROCESS 

/*  13,10,'%'); 

/*     OUTLINE:  PROCEDUREv  PTR  )  EXTERNAL? 
/*        DECLARE  PTF  POINTER; 
/*     vmd; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*?**.    MXTRACE  ='****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

await:  procedure!  name,  value  )  external; 

declare  name  byte,  value  word? 
end; 

initia!$proc:  procedure  public? 

declare  i  byte; 

/*  after  initialization  this  process  elocks  */ 
/*  itself  to  allow  the  newly  created  processes  */ 
/*  to  bf  scheduled.  */ 

/*  this  area  should  be  written  over  by  user  init  */ 
/*  procedure  module.  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*     CALL  CUT$LINE(3MSG13) J 

/***    MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

CALL  AW  AIT (  0FEH,  1)  ; 

END;    /*  INITIAL$PROC  */ 
END?   /*  INIT$MOD  */ 
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